





Welcome to our Christmas Program Present! 


NOW YOU'VE GOT’AN EXCUSE not to lie 
on the beach all summer, showing that 
flab you've acquired through overindul- 
gence in festive fare. With the programs in 
this special Christmas bonus,3 you'll have 
lots of reasons to stay inside, getting a 
suntan in the glare of your monitor screen. 


Just for Fun 

Next we have a number of programs just for 
fun. In this section you can dive into the 
sea with KAMIKAZI PARACHUTE!, clock 
up a strike or three with TEN-PIN BOWL- 
ING, try out your skill against the fiendish 
computer brain in DOMINOES, take up 
arms as a Yankee against the British in 
DANIEL MORGAN'S MILITIA, and win 
some synthetic money on our SUPER 
ZAPPO SLOT MACHINE (which is mo- 
delled on the behaviour of real slot ma- 
chines, rather than just being some vague 
computer approximation). 


Brain-Twisters and Simulations 
When you've had enough of that sinful, 
just for pleasure stuff, you can exercise 
some grey matter with the board games 
GOMOKU, CONNECT FOUR, DRAUGHTS 
and OZ-THELLO. From there we move 
into Simulationland, in which you gain 
control of THE YOUR COMPUTER ROBOT, 
which leaves interesting patterns behind 
it as it strolls around your screen (some- 
what like a slimy snail, | guess) and LIVIN’ 
IN THE LODGE, in which you see how well 
you would do as Prime Minister of our 
sunburnt country. 


Know Thyself 

Then things get really serious, with our 
DOCTOR program (a very hefty version of 
ELIZA which | wrote to try and perform as 
closely as possible to the original, vast, 
mainframe one), THE CELTIC TAROT to 
see what 1987 holds for you, and our offi- 
cial BIORHYTHM CALCULATOR, which 
will back up the Tarot predictions with a 
little bit of weird science. 


Artificial Stupidity 
Just to show we haven't lost our marbles 
completely, you can give yourself a quickie 


medical checkup, with our very own drive- 
in, 24-hour clinic, MEDICI, and go a round 
or seven with our ‘intelligent’ NOUGHTS 
AND CROSSES game, which learns to im- 
prove its game as it plays against you. 


Utilitarianism 

If you want to know when Australia Day 
will fall in 1993 (and who doesn’t?), THE 
YC PERPETUAL CALENDAR will tell you, 
and print out a calendar for 1987, 1993 or 
just about any old year you want. Let's see 
now, Easter in 1947 fell on the 22nd, so 
Aunt Mary must have gotten married 
on. 


A Barrel of Fun 

ALL IN ALL, there’s a lot in this special 
bonus magazine, to ensure you make the 
most of your computer this summer. I've 
written the programs so that they will run, 
with minimum modification, on just about 
any computer on the market. You might 
need to modify the lines which contain 
RANDOMIZE in some way (or leave them 
out all together, if you like, as it won't 
make much difference), and you might 
want to play with the PRINT statements in 
some programs to make the most of your 
system's graphics capabilities. 

And if the thought of all that typing is 
too much to bear, all the programs are 
available via the Your Computer Bulletin 
Board on (02) 953 8074: Alternatively, if 
you have an IBM PC, or a clone, I can pro- 
vide you with a disk containing all the ma- 
terial in this magazine. Just send me a 
used fiver (or, if you must, your Visa or 
Bankcard details) to Interface Publica- 
tions, 34 Camp Street, Chelsea 3196, Vic., 
and I'll send you a disk of the material. 


Note that these programs are NOT public do- 
main, so they cannot be sold or distributed by 
anyone, other than downloading them from the 
bulletin board for your own use, or from my com- 
pany on disk. 


OK, time to get down and get with it 

(as we tired old hackers are wont to say). 
Hope you enjoy our Program Present! 
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Kamikaze Parachute! 


IN THIS DRAMATIC GAME, you have to 
battle the fierce winds off the coast of Vic- 
toria, while attempting to Jand your para- 
chute safely on a tiny landing pad floating 
on the waves of Port Philip Bay. 

There are four levels of difficulty (from 
‘easy’ to ‘incredibly hard’). You use the ’Z’ 
key to move the parachute to the left, and 
the 'M’ to move it to the right. Make sure 
you engage Caps lock before you run this 
program. Miss the landing pad, and you'll 
drown. 


6668 
SPLOSSSSSHHHHHHHHH! ! 
YOU GOT SOAKED! 

YOU HAVE 16 POINTS 


JUST FOR FUN! 


REM Kamikazi Parachute! 
REM (C) Neal Cavalier-Smith, 
Interface Publications, 1986 

P=20 
GOSUB 120:REM INTIALISE 

REM ###8e8 e888 

REM MAIN CYCLE 
GOSUB 370:REM PRINT 'CHUTE 
GOSUB 530:REM LANDING STRIP 
GOSUB 590:REM GET KEYS 

GOTO 70 

REM #8888888 88888 8 

REM INITIALISATION 

CLS 

IF INKEY$<>"" THEN 140 
PRINT: PRINT "SELECT YOUR GAME:" 
PRINT TAB(6);"A - EASY" 
PRINT TAB(6);"B - MODERATE" 
PRINT TAB(6);"C, - DIFFICULT" 
PRINT TAB(6);"D - INCREDIBLY HARD" 
INPUT " R$ 
IF R$<"A*® OR R$>"D" THEN 200 
DF=1/2 

IF R$="C" THEN DF=1 

IF R$="B" THEN DF=2 

IF R$="A" THEN DF=3 
STP=0:REM SCREEN TOP 
RANDOMIZE VAL( RIGHT$(TIME$, 2) ) 
STP=0:REM SCREEN TOP 
SBOT=19:REM SCREEN BOTTOM 
SWDE=40:REM WIDTH OF SCREEN 
SWDE=SWDE-3 

ACC=INT( RND(1)#( SWDE-4)) 
PAD=INT( RND(1)*®(SWDE-10) ) 
PLUS=1 

RETURN 

REM HHKFKKSRRKKRER EE 

REM PRINT PARACHUTE 

CLS 

FOR C=0 TO STP 

PRINT 

NEXT C 

PRINT TAB(ACC);" * * 

PRINT TAB(ACC);"7**" 

PRINT TAB(ACC);" 0% 

PRINT TAB(CACC);" Y " 

IF STP=SBOT-! THEN 500 

FOR C=6 TO SBOT-STP 

PRINT 

NEXT C 

STP=STP+1 

RETURN 














JUST FOR FUN! 


REM S### eee eRe EES 760 P=INT(P+10/DF) 

REM LANDING STRIP 770 GOTO 810 

PAD=PAD+PLUS 780 PRINT TAB(12);"SPLOSSSSSHHHHHHHHHII" 
IF PAD>SWDE~6 THEN PLUS=-1 

PRINT TAB( PAD); "e@@@" 790 PRINT TAB(14);"YOU GOT SOAKED!" 
RETURN 800 P=P-2 

REM ## 888888 810 AT=AT+1 

REM GET KEYS 820 IF AT=20 OR P<O THEN 900 

IF STP=SBOT-4 THEN GOSUB 660 830 PRINT TAB(11);"YOU HAVE"P"POINTS®" 
Y$=INKEY$:REM or GET Y$ 840 FOR X=1 TO 1000:NEXT X 

IF Y$="Z" THEN ACC=ACC-DF 850 IF INKEY$<>"" THEN 850 

IF Y$="M" THEN ACC=ACC+DF 860 GOSUB 260 

RETURN 870 RETURN 

REM SH EHHEHERE KEES 880 REM #8888888 

REM SEE IF DROWNED 890 REM DROWNED! 

IF ACC<PAD~1 THEN 780 900 PRINT TAE(13);"YOU'VE BEEN DROWNED!" 
IF ACC>PAD+2 THEN 780 

IF ACC=PAD+1 OR ACC=PAD THEN 740 910 PRINT: FRINT TAB(12);"YOU SCORED"P"PO 
PRINT TAB(8);"YOU MADE IT...BY THE" | INTS" 

PRINT TAB(9);"SKIN OF YOUR TEETH" 920 PRINT TAB(16);"IN"AT"ATTEMPTS," 
P=P+5 930 END 

GOTO 810 

PRINT TAB(12);"CONGRATULATIONS!I!I" 

PRINT TAB(13);"A SAFE LANDING!I® 


Ten-Pin Bowling 


10 REM TEN-PIN BOWLING 
THIS PROGRAM ALLOWS YOU to play 20 REM (C) INTERFACE PUBLICATIONS, 1986 


ten-pin bowling (after a fashion) by test- 30 GOSUB 760:REM INITIALISE 
ing your reflexes. 40 FOR F=1 TO 10 
When you run the program, you'll see 50 FOR B=1 TO 2 

the pits shown from above (cunningly 60 IF B=1 THEN GOSUB 290:REM SET UP PINS 

represented by hi-res letter O's). After an 

agonizing wait, the words BOWL NOW will 70 GOSUB 350:REM PRINT PINS 

appear. The more quickly you react to this 80 GOSUB 480:REM BOWL BALL 

message, by hitting any key on your long- 90 GOSUB 350 

suffering computer, the better your bowl 100 COUNT=0 

will be. 110 FOR J=1 TO 10 

The program keeps score automatically, 120 IF A(J)=45 THEN COUNT=COUNT+1 

and tells you how well you're doing. If you- 130 NEXT J 

‘re feeling reflexive, and want to chuck a 140 IF COUNT=0 TEEN PRINT ,"> GUTTER <* 

ball or two about, this program is for you. 150 IF STRIKE=F TREN PRINT ,">> STRIKE < 
<";GOTC 170 
160 IF COUNT=10 THEN PRINT ,":: ALL PINS 

DOWN ::" 

170 IF COUNT>O AND COUNT<1C TEEN PRINT , 
"> SPARE <-" 
180 IF COUNT=1 THEN PRINT TAB(15);"ONE P 
IN DOWN" 
190 IF STRIKE<>F AND COUNT<>1 AND COUNT< 








10 THEN PRINT TAB(14);COUNT"PINS DOWN® 
200 GOSUB 850 
210 NEXT B 
220 SCRE=SCRE+COUNT 
230 IF STRIKE=F-~1 THEN PRINT ,"PLUS"COUN 
T™!!":SCRE=SCRE+COUNT: STRIKE=99:GOSUB 85 
0 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
CRE 
380 PRINT: PRINT "THIS IS FRAME"F; 
390 IF STRIKE=99 THEN PRINT " BALL"B ELS 
E PRINT 
400 PRINT: PRINT 
410 PRINT TAB(8);CHR$(A(10))3" ";CHR$(A( 
9))3" ";CHR$(A(8));" ";CHR$(A(7)) 
420 PRINT TAB(9);CHR$(A(6));" "3;CHR$(A(5 
>" "3 CHR$(A(4)) 
PRINT TAB(10);CHR$(A(3))3" ";CHR$(A( 


NEXT F 

PRINT "THAT'S THE END OF TKE SET" 
PRINT: PRINT "YOUR SCORE WAS"SCRE 
END 

REM #8888888 EEE 

REM SET UP PINS 

FOR J=1 TO 10 

A(J)=79 

NEXT J 

RETURN 

REM ##HRER EEE 

REM PRINT PINS 

CLS: PRINT: PRINT 

PRINT "YOUR SCORE TO THIS FRAME IS"S 


PRINT TAB(11);CHR$(A(1)) 

PRINT: PRINT 

RETURN 

REM *#eeneee8 

REM BOWL BALL 

PRINT TAB(4);"STAND BY TO BOWL": PRIN 


IF INKEY$<>"" THEN 500 
FOR R=1 TO 300+RND(1)#Z 
NEXT R 

IF INKEY$<>"" THEN 510 
PRINT TAB(7);"BOWL NOW" 
N=0 

N=N+.7 


IF INKEY$="" THEN 560 


B=1 AND RND(1)>.9 AND N<30 THEN N 


N<20 AND B=1 THEN 680 
N<20 THEN T=10 
N>19 AND N<30 THEN T=5+INT(RND(1) 


JUST FOR FUN! 


620 
#5) 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 


YOUR SCORE TO THIS FRAME IS 0 
THIS IS FRAME 1 BALL 1 


0000 


STAND BY TO BOWL 
BOWL NOW 


YOUR SCORE TO THIS FRAME IS 16 
THIS IS FRAME 3. BALL 1 


0000 


-> SPARE <- 
3 PINS DOWN 


IF N>29 AND N<42 THEN T=2+INT(RND(1) 


IF N>41 THEN T=INT(RND( 1) #4) 
FOR K=1 TO T 

IF RND(1)>.1 THEN A(K)=45 

NEXT K 

RETURN 

REM * STRIKE * 

FOR K=1 TO 10 

A(K)=45 

NEXT K 

STRIKE=F 

B=2 

RETURN 

REM ##SHSSH RRR RR EE 

REM INITIALISATION 

CLS 

RANDOMIZE VAL(RIGHT$(TIME$, 2) ) 
DIM 0) 

SCRE=0:REM SCORE 

Z=500:REM ADJUST THIS VALUE TO GIVE 


BEST RESULTS ON YOUR SYSTEM 


820 
830 
840 
850 
860 
870 


STRIKE=99 
RETURN | 

REM #8 88% 

REM DELAY 

FOR L=1 TO 1300:NEXT L 
RETURN 











Dominoes 


FROM THE EMPTY CAVERN which repre- 
sents the Tim Hartnell Inner Brain of Use- 
less Knowledge, comes this fascinating 
fact: The present-day game of dominoes, 
which was probably developed in Italy 
around 200 years ago, is based on a Chi- 
nese tile game, invented centuries before 
the Italians got hold of them. And this 
program was invented about 20 minutes 
ago, as a silicon version of the Italian 
game. 

To play dominoes, we use 28 oblong 
‘stones’ or ‘tiles’. Each tile is divided into 
two sections, and 'pips’ (like the dots on 
dice) are placed on each section. The pips 
range from none (blank) to six. The domi- 
noes are placed faced downward on a 
table, and each player selects seven tiles 
for his or her own use. The others are left 
on the table as the reserve, or ‘bone yard’ 
as it is quaintly known. 

The computer has the first move (it’s 
easy to change this so you can move first, 
if you like) and you then take it in turns to 
place your dominoes down, making sure 
that you put matching pips together (so 
that if the computer's first dominoe was 
67, you could put down any dominoe 
which hada 6 ora 7 onit). Blanks count as 
any number. If you can’t move, you enter a 
zero, and you'll be given an extra domi- 

- noe, from the ‘bone yard’. The game ends 
when one of the players manages to get 
rid of all of his or her pieces, or when nei- 
ther player can move. 

You'll find the computer puts up a solid 
‘defence in this game. 


JUST FOR FUN! 


REM DOMINOES 
REM (C) TIM HARTNELL, 1986 
REM INTERFACE PUBLICATIONS 
GOSUB 1620:REM INITIALISE 
REM #88 RHR S8S 
REM MAIN CYCLE 
NTFLAG=0 
TFLAG=0 
GOSUB 1340:IF CLEFT=14 THEN 220 
100 GOSUB 560:REM COMPUTER MOVES 
110 IF NTFLAG=1 THEN 140 
120 IF TFLAG=0 THEN 150 
130 PRINT: PRINT "I'LL TAKE A TILE FROM T 
HE BONEYARD":GOSUB 1590 
140 MF=9 
150 GOSUB 1490:REM PRINTOUT 
160 GOSUB 1420:IF HLEFT=14 THEN 220 
170 GOSUB 970:REM HUMAN MOVES 
180 GOSUB 1490:REM PRINTOUT 
190 IF NTFLAG=2 THEN 220:REM GAME OVER 
200 GOTO 70 
210 REM ## #88888 888 
220 REM END OF GAME 
230 PRINT TAB(8);"END OF GAME":PRINT:GOS 
UB 1590 
240 MF=9 
250 GOSUB 1490 
260 CS=0:HS=0 
270 PRINT "MY TILES:" 
280 FOR J=1 TO 14:PRINT C$(J)3":"3: NEXT 
J 
290 PRINT:PRINT:PRINT "YOUR TILES: " 
300 FOR J=1 TO 14:PRINT H$(J)3;"%:";: NEXT 
J:PRINT: PRINT 
310 FOR J=1 TO 14 
320 IF C$(J)<>"" THEN CS=CS+VAL(RIGHT$(C 
$(3),1))+VAL(LEFT$(C$(J),1)) 
330 IF H$(J)<>"" THEN HS=HS+VAL(RIGHT$(H 
$(3),1))+VAL(LEFT$(H$(J),1)) 
340 H$(J)="™:C$(J)=a0 
350 NEXT J 
360 PRINT:PRINT "AT THE END OF THAT GAME 
» YOUR SCORE® 
370 PRINT TAB(6);"IS"HS"AND MINE IS"CS 
380 PRINT: PRINT TAB(8); 
390 IF CS=HS THEN PRINT "IT'S A DRAW" 
400 IF CS<HS THEN PRINT "SO I'M THE WINN 
ER"; CGAME=CGAME+1 
410 IF HS<CS THEN PRINT "SO YOU'RE THE W 
INNER": HGAME=HGAME+1 
420 PRINT:PRINT 
430 PRINT CGAME"GAMES TO ME, "HGAME"GAMES 
TO You" 








JUST FOR FUN! 





440 
450 
460 
pt" 
470 IF CGAME>HGAME THEN PRINT TAB(7);"AN 
D I'M THE OVERALL WINNER" 

480 IF CGAME<XHGAME THEN PRINT TAB(5);"AN 
D YOU'RE THE OVERALL WINNER® 


PRINT: PRINT 
IF CGAME+HGAME<5 THEN 500 
PRINT "THAT'S FIVE GAMES WE'VE PLAYE 


490 GOTO 530 

500 PRINT "ENTER 'Y' FOR A NEW GAME, 'N' 
TO END" 

510 INPUT L$ 

520 IF L$="Y" THEN CLS:GOSUB 1680:GOTO 7 
0 

530 PRINT: PRINT TAB(8);"OK, THANKS FOR T 
HE GAMES" 

540 END 

550 REM ###e088 eR eR EE 

560 REM COMPUTER MOVES 

570 MF=1 

580 IF P$="" THEN 800:REM FIRST MOVE 

590 PRINT "BEFORE THIS MOVE I HAVE"14-CL 


EFT"TILES..." 

600 GOSUB 1590 

610 X=0:FLAG=0 

620 X=X+1 

630 IF LEFT$(C$(X),1)=LEFT$(P$,1) THEN F 
LAG=1:GOSUB 890:RETURN 

640 IF RIGHT$(C$(X),1)=LEFT$(P$,1) THEN 
FLAG=2:GOSUB 890: RETURN 

650.IF LEFT$(C$(X),1)=RIGHT$(P$,1) THEN 
FLAG=3:GOSUB 890: RETURN 

660 IF RIGHT$(C$(X),1)=RIGHT$(P$,1) THEN 
FLAG=4:GOSUB 890:RETURN 


670 IF X<14 THEN 620 

680 PRINT "I CANNOT MOVE...":GOSUB 1590 
690 XK=X+1 

700 IF D$(X)="" THEN 750 

710 Y=#0 

720 Y=Y+1 

730 IF C$(Y)="" THEN C$(Y)=D$(X):D$(X)=" 


";TFLAG=1: RETURN 

740 IF Y<14 THEN 720 

750 IF X<28 THEN 690 

760 PRINT "THERE ARE NO TILES LEFT IN BO 
NEYARD" 


7T7T0 GOSUB 1590 

780 NTFLAG=NTFLAG+1 

790 RETURN 

800 REM ® FIRST MOVE ## 
810 X=0 

820 X=X+1 


830 IF LEFT$(C$(X),1)=RIGHT$(C$(X),1) TH 
EN 860:REM DOUBLE FOUND 

840 IF X<7 THEN 820 

850 X=INT(RND(1)#7)+1 

860 P$=C$(X):C$(X)="" 

870 RETURN 

880 REM SE ERE EEE 

890 REM MAKE MOVE 

900 IF FLAG=1 THEN P$=RIGHT$(C$(X),1)+LE 
FT$(C$(X),1) 4%: "4P$ 

910 IF FLAG=2 THEN P$=C$(X)#":"4+P$ 

920 IF FLAG=3 THEN P$=P$+":"4C$(X) 

930 IF FLAG=4 THEN P$=P$+":"4+RIGHT$(C$(X 
),1)+LEFT$(C$(X),1) 

940 C$(X)="" 

950 RETURN 

960 REM SHH ERE 

970 REM HUMAN MOVES 

980 MF=2 a 

990 PRINT: PRINT "HERE IS YOUR HAND:":PRI 
NT 

1000 FOR G=1 TO 14 


1010 IF H$(G)<>"" THEN PRINT G"— ";H$(G) 
1020 NEXT G 

1030 PRINT: PRINT "ENTER THE NUMBER OF TH 
E PIECE YOU WANT TO MOVE, 0 TO PASS®" 
1040 INPUT " mM 

1050 IF M<O OR M>14 THEN 1040 


1060 
1070 
1080 
n 

1090 
1100 


IF M=0 THEN 1180:REM PASS 
IF H$(M)="" THEN 1040 
PRINT "AT THE START (S) OR END (E)? 


INPUT " "A$ 

IF A$<>"S" AND A$<>"E" THEN 1090 
1110 IF A$="E" THEN 1140 

1120 IF RIGHT$(H$(M),1)=LEFT$(P$,1) THEN 
P$=H$(M)+":"+P$:GOTO 1160 

1130 P$=RIGHT$(H$(M), 1)+LEFT$(H$(M), 1)o" 
2"+P$:GOTO 1160 

1140 IF LEFT$(H$(M),1)=RIGHT$(P$,1) THEN 
P$=P$4+":"4+H$(M):GOTO 1160 

1150 P$=P$+":"+RIGHT$(H$(M),1)+LEFT$(H$( 

M),1) 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


H$(M)="" 

RETURN 

REM HUMAN PASS 

X=0 

X=X+1 

IF H$(X)="" THEN 1230 
IF X<14 THEN 1200 
Y=14 

Y=Y+1 














JUST FOR FUN! 


AFTER MY MOVE, THIS IS THE BOARD: 
02:26:66:63:33:31 


IS YOUR HAND: 


54 
11 
61 
40 


ENTER THE NUMBER OF THE PIECE YOU WANT TO MOVE, O TO PASS 
2.5 

AT THE START (S) OR END (E)? 
? E 


1250 IF D$(Y)<>"" THEN 1300 4590 FOR Q=1 TO 1000:NEXT Q 

1260 IF Y¥<28 THEN 1240 1600 RETURN 

1270 PRINT "NO TILES LEFT IN BONEYARD" 1610 REM ####eeeeeeeees 

1280 NTFLAG=NTFLAG+1 1620 REM INITIALISATION 

1290 RETURN . 1630 CLS 

1300 H$(X)=D$(Y):D$(Y)="" 1640 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 
1310 PRINT "YOU HAVE DRAWN :";H$(X);":" 1650 DIM D$(28),H$(14),C$( 14) 

1320 GOSUB 1590 1660 PRINT: PRINT "STAND BY, CHAMP!" 
1330 RETURN 1670 REM ® SET UP DOMINOES *® 

1340 REM COMPUTER OUT? 1680 X=0 

1350 REM ####eeeeeeees: 1690 FOR J=0 TO 6 

1360 CLEFT=0 1700 FOR K=0 TO J 

1370 FOR J=1 TO 14 1710 X=X+1 . 

1380 IF C$(J)="" THEN CLEFT=CLEFT+1 1720 D$(X)=RIGHT$(STR$(J),1)+RIGHT$(STR$ 
1390 NEXT J (K),1) 

1400 RETURN 1730 NEXT K 

1410 REM ####ee 888 1740 NEXT J 

1420 REM HUMAN OUT? 1750 PRINT: PRINT 

1430 HLEFT=0 1760 REM ® SHUFFLE DOMINOES # 

1440 FOR J=1 TO 14 1770 REM MOSES/OAKFORD ROUTINE (1963) 
1450 IF H$(J)="" THEN HLEFT=HLEFT+1 1780 FOR J=28 TO 1 STEP -1 

1460 NEXT J 1790 T=INT(RND(1)#J)4+1 

1470 RETURN 1800 H$=D$(T) 

1480 REM ###eennee 1810 D$(T)=D$(J) 

1490 REM PRINT OUT 1820 D$(J)=H$ 

1500 CLS 1830 NEXT J 

1510 IF MF=9 THEN 1550 1840 REM ® ALLOT HANDS ® 

1520 CLS 1850 FOR J= 1 T0 7 

1530 IF MF=1 THEN PRINT "AFTER MY MOVE, 1860 H$(J)=D$(J):D$(J)="" 

-®3:GOTO 1550 1870 C$(J)=D$(J+7) :D$(J+7)="" 

1540 PRINT "AFTER YOUR MOVE, "; 1880 NEXT J 

1550 PRINT "THIS IS THE BOARD:" 1890 P$="":REM HOLDS CURRENT BOARD 
1560 PRINT: PRINT 1900 HGAME=0:CGAME=0:REM TOTALS WON 
1570 PRINT P$ 1910 RETURN 

1580 PRINT 








Daniel Morgan’s Militia 


WAY BACK IN 1781, when Australia was . 
just a gleam in Governor Philip's eye, the 
Brits were bashing hell out of the Amer- 
icans in the War of Independence. The tide 
turned, however, in the Battle of Cowpens, 
when troops under the control of General 
Daniel Morgan scored a convincing victo- 


In this program, you control Morgan's 
troops. There are ten levels of difficulty. 
The British are represented by numbers at 
the bottom of the screen, and they ad- 
vance relentlessly towards you at the top. 
Your men are represented by a letter ‘V’ 
(classy graphics, huh?) and you move your 
men back and forth with the ‘Z’ key (to 
move to the left) and the ‘M’ key (to move 
to the right). You fire at the British by 
pressing the space bar. 

Your score is related to two things: the 
numbers your shots destroy, and their 
position within the British ranks. There are 
four rows of British soldiers. The front row 
is worth the least, and those in the final 
row are worth the most. 

Go get ‘em, Daniel Morgan! 


IT’ JS 2 AM ON JANUARY 17, 


THIS IS YOUR TIME OF TESTING, 


GENERAL MORGAN 


ENTER YOUR CHOICE OF LEVEL (1 


10 IS THE MOST DIFFICULT 


1 IS THE EASIEST 


? 4 


JUST FOR FUN! 


MORALE IS 284 YOU'VE FIRED 10 SHOTS 


LOR ARE ON 


I I 


fea) 
Le Oe OB ee | 


Ue ie os he Be Be Oe BO | 
wm 


eu 


REM DANIEL MORGAN'S MILITIA 
REM (c) Tim Hartnell, 
Interface! Publications, 1986 

GOSUB 660:REM INITIALISE 

GOTO 290 

REM RRRRRRRR EE 

REM MAIN CYCLE 

CLS 

COUNT=COUNT-LEV/10 

PRINT "MORALE IS"INT(SCR)" YOU'VE FI 
RED*"SHOTS"SHOTS" 
100 IF COUNT<1 THEN EDFLAG=2 
110 IF SHOTS>35-LEV THEN EDFLAG=3 
120 PRINT TAB(11);H$ 
130 FOR J=1 TO INT(COUNT+.5) 
140 PRINT TAB(11);"I I":REM 

10 SPACES 
150 NEXT J 
160 PRINT TAB(11);"I";A$;"1" 
170 PRINT TAB(11);"1I"; B$;"1I" 
180 PRINT TAB(11);"I";C$;"17" 
190 PRINT TAB(11);"I";D$;"1I" 
200 IF EDFLAG=1 THEN PRINT: PRINT TAB(4); 
"YOU'VE BEATEN THE BRITISH!":GOTO 330 
210 IF EDFLAG=2 THEN PRINT: PRINT TAB(4); 
"THE BRITISH HAVE BEATEN YOU":GOTO 330 
220 IF EDFLAG=3 THEN PRINT: PRINT TAB( 3); 
"YOU'RE OUT OF AMMUNITIONI":GOTO 330 
230 F$=INKEY$ 
240 REM DELETE NEXT LINE FOR A MUCH MORE 
DIFFICULT GAME... 

250 IF FS<>"Z" AND FS<K<>"M" AND F$K>" 41 T 
HEN 230 
260 IF FS="Z" THEN PST=PST-1:IF PST<1 TH 
EN PST=1 
270 IF F$="M" THEN PST=PST+1:1F PST>10 T 
HEN PST=10 














JUST FOR FUN! 





580 IF F$=" " THEN SHOTS=SHOTS+1:GOSUB 4|730 A$=A$+T$ 


20:REM FIRE 740 GOTO 760 

290 Mgan**7*444444K 750 A$=A$e" 7 

300 H$=LEFT$(M$, PST) +"V"+RIGHT$(M$,11-PS|760 IF RND(1)<.6 THEN 800 

T) 770 GOSUB 980 

310 GOTO 70 780 B$=B$+T$ 

320 REM HRRHHERK HEE 790 GOTO 810 

330 REM END OF GAME 800 B$=B$+" * 

340 PRINT 810 IF RND(1)<.6 THEN 850 

350 EFFECT=SHOTS 820 GOSUB 980 

360 IF EDFLAG=1 THEN FFFECT=.1 830 C$=C$+T$ 

370 IF EDFLAG=3 THEN EFFECT=97 840 GOTO 860 

380 PRINT TAB(4);"YOUR TROOPS' RATING IS| 850 C$=C$+" = 

"INT( (1974®SCR) /(EFFECT#LEV+.0005) ) 860 IF RND(1)<.6 THEN 900 

390 IF INKEY$<>"" THEN 390 870 GOSUB 980 

400 END 880 D$=D$+T$ 

410 REM ## #88888 BRR HEE 890 GOTO 910 

420 REM FIRE SUBROUTINE 900 D$=D$4" = 

430 IF MID$(A$,PST,1)=" " THEN 470 910 NEXT 2 

4WO0 SCR=SCR+VAL(MID$(A$, PST,1)) *LEV 920 COUNT=15 

450 MID$(A$,PST,1)=" " 930 PST=INT(RND(1)*9)+1 

460 RETURN 940 SCR=0 

470 IF MID$(B$,PST,1)=" " THEN 510 950 EDFLAG=0 

480 SCR=SCR+2*VAL(MID$(B$, PST,1))*®LEV/3 | 960 SHOTS=0 

490 MID$(B$,PST,1)=" * 970 RETURN 

500 RETURN 980 T$=STR$(INT(RND(1)#9)+1) 

510 IF MID$(C$,PST,1)=" ™ THEN 550 990 T$=RIGHT$(T$,1) 

520 SCR=SCR+4*#VAL(MID$(C$, PST,1))#LEV/2. | 1000 RETURN 

5 1010 REM ### #8 #8 

530 MID$(C$,PST,1)=" * 1020 REM GET LEVEL 

540 RETURN 1030 PRINT: PRINT: PRINT 

$50 IF MID$(D$,PST,1)=" ™" THEN 590 1040 PRINT TAB(3);"IT IS 2 AM ON JANUARY 
560 SCR=SCR+8*VAL(MID$(D$,PST,1))*LEV/1.| 17, 1781" 

3 1050 PRINT: PRINT 

570 MID$(D$,PST,1)=" " 1060 PRINT TAB(3);"THIS IS YOUR TIME OF 
580 RETURN TESTING, GENERAL MORGAN" 
590 IF A$<>" " THEN RETURN:REM | 1070 PRINT: PRINT 

10 SPACES 1080 PRINT "ENTER YOUR CHOICE OF LEVEL ( 
600 IF B$<>" " THEN RETURN: REM | 1 TO 10)" 

10 SPACES 1090 PRINT: PRINT TAB(8);"10 IS THE MOST 
610 IF C$<>" " THEN RETURN:REM | DIFFICULT" 

10 SPACES 1100 PRINT TAB(12);"1 IS THE EASIEST" 
620 IF D$<>" " THEN RETURN: REM | 1110 PRINT:INPUT " "; LEV 
10 SPACES 1120 IF LEV<1 OR LEV>10 THEN 1110 

630 EDFLAG=1 1130 RETURN 

‘640 RETURN 


650 REM ##XSHERHE ORE EE 
660 REM INITIALISATION 
670 CLS 
. 680 GOSUB 1020:REM GET LEVEL 
690 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 
700 FOR Z=1 TO 10 
710 IF RND(1)<.6 THEN 750 
720 GOSUB 980 





Super Zappo Slot Machine 


IN THE 1930S IN AMERICA, the slot or 
fruit machine was considered by many to 
be a product from the devil's factory of de- 
vices designed to mislead men from the 
true path. If you look through yellowing 
American newspapers of the period, you'd 
be tempted to think that all politicians did 
for publicity in those days was attack slot 
machines with an axe — whenever a 
photographer happened to be present. 

The ‘evil’ of the slot machine lies in the 
gross ease with which the machine is 
played. You put a coin (or token) in a slot, 
and press a button or pull a handle. The 
machine — the vast majority of the time 
— puts on a little display for you, with 
whirling images, lights and bells, and then 
eats your coin. Despite the illusion of in- 
teraction created by the fact that the 
player starts the little display by pressing 
a button or pulling a handle, and addi- 
tional buttons with names like 'Nudge’, 
"Wink, wink’ and ‘Hold’, a particularly 
dumb robot or a trained pigeon, rat or rab- 
bit could play the machine as well as you 
can. 

In a test conducted a few years ago by a 
Sydney newspaper, 10 machines were 
tested, one in each of 10 different loca- 
tions. In the test, 1000 coins were played 
through each machine, and any winnings 
were set aside (that is, they were not fed 
back into the machine). In the 10,000 
coins played, not a single jackpot was re- 
corded. The worst return was 62%, with 
84% as the best. Further, the player was 
temporarily ahead on only two of the ma- 
chines. 

Why would anybody play such ma- 
chines, given such dreadful odds? Who 
knows? This program will enable you to 
play for as long as you like, and lose as 
much as you like. It is a three-reel ma- 
chine, which behaves like a genuine three- 
reel Vegas machine, with the likelihood of 
particular symbols appearing strictly in 
accordance with true slot machine odds. 
Play on, sucker. 


JUST FOR FUN! 





10 REM Super Zappo Slct Machine 
20 REM (c) Tim Hartnell 
Interface Publications, 1986 
30 GOTO 70 
HO M$=A$(1):FOR D=2 TO 20:A$(D-~1)=A$(D): 
NEXT D:A$(20)=M$:RETURN 
50 M$=B$(1):FOR D=2 TO 20:B$(D-~1)=B$(D): 
NEXT D:B$(20)=M$: RETURN 
60 M$=C$(1):FOR D=2 TO 20:C$(D-1)=C$(D): 
NEXT D:C$(20)=M$: RETURN 
70 GOSUB 630:REM Initialize 
80 REM SPF SSSSER EHR ESSSSES HS HEHEHE EES ES 
90 REM Here we go 
100 GO=G0+1:GOSUB 960:PRINT "This is go 
number"GO 


110 PRINT TAB(3);"=> Your money: $";MID$ 
(STR$(CASH),2);" <=" 
120 PRINT TAB(3);"=> Your winnings: $";M 
ID$(STR$(WG),2)3;" <=" 


130 GOSUB 960 

140 IF INKEY$<>"" THEN 140 

150 PRINT TAB(3);"=> OK, press <RETURN> 
to pull the handle <=" 

160 PRINT TAB(12);"(or any other key to 
quit)" 

170 WS$=INKEY$:IF W$="" THEN 170 

180 IF W$<>CHR$(13) THEN PRINT: PRINT TAB 
(27);"OK, see you later, buddy!":END 

190 CLS: CASH=CASH-1:GOSUB 960 

200 GOSUB 450:REM Spin the reels 

210 GOSUB 250:REM Payouts 

220 IF CASH<1 THEN PRINT "You've run out 
of money, buddy!": END 

230 GOSUB 950:GOTO 90 

240 REM S#SSHRSRSHSSEST ARES RRRER RHEE EE 
250 REM Payouts 

260 W=VAL(LEFT$(A$(1),1 
(1),1)):Y=VAL(LEFT$(C$( 
270 Z=100*W+108X+Y | 
280 WN=0:Q$="" 

290 IF Z=222 THEN WN=120:Q$="Jackpot! Th 
ree bars!" 

300 IF Z=111 THEN WN=16:Q$="Three bells" 


)):X=VAL(LEFT$(B$ 
1),1)) 





310 IF Z=112 THEN WN=16:Q$="Two bells, o 
ne bar® 
320 IF Z=333 THEN WN=12:Q$="Three plums" 


330 IF 22332 THEN WN=12:Q$="Two plums, o 
ne bar" 

340 IF Z=444 THEN WN=8:Q$="Three oranges 
ft 





JUST FOR FUN! 





350 IF 2=442 THEN WN=8:Q$="Two oranges, 

one bar" 

360 IF 22556 THEN WN=4:Q$="Two cherries, 
one lemon" 

370 IF Z2=551 THEN WN=4:Q$="Two cherries, 
one bell" 

380 IF 2>551 AND Z<556 THEN WN=2:Q$="Two 
cherries" 

390 IF WN=0 THEN PRINT TAB(23);"=> No lu 
ek that time <=":GOSUB 950:RETURN 

400 GOSUB 960:E$=D$(INT( RND(1)#*6+1)):E$= 

E$+E$+E$:PRINT 

410 PRINT TAB(5);E$;" "3;Q$;" pays $";MID 
$(STR$(WN),2)3;" ";E$ 

420 PRINT: WG=WG+WN: RETURN 

430 END 

UNO REM HHH HERERO 

450 REM Spin the reels 

460 FOR E=1 TO INT(3+RND(1)#6) 

470 GOSUB 40:GOSUB 50:GOSUB 60 

480 PRINT TAB(5);MID$(A$(1),2);TAB(15) 3M 
ID$(B$(1),2);TAB( 25) ;MID$(C$(1),2) 

490 NEXT E 

500 GOSUB 960:PRINT " => ";MID$(A$(1),2) 
:GOSUB 960 

510 REM HRRHERHRE HERE RHEE 

520 FOR E=1 TO INT(3+RND(1)*6) 

530 GOSUB 50:GOSUB 60 

540 PRINT TAB(15);MID$(B$(1),2);TAB(25); 

MID$(C$(E),2):NEXT E 

550 GOSUB 960:PRINT " => ";MID$(A$(1),2) 
;TAB(15);MID$(B$(1),2):GOSUB 960 

560 REM #HRRRR RRR ERE ee HH 

570 FOR E=1 TO INT(3+RND(1)*6) 

580 GOSUB 60:PRINT TAB( 26) ;MID$(C$(1),2) 
:NEXT E:GOSUB 960 

590 PRINT " => ";MID$(A$(1),2);TAB(15) 3M 

ID$(B$(1),2);TAB(25) ;MID$(C$(1),2) 

600 GOSUB 960 

610 RETURN 

620 REM SH PRRHE RHEE EERE HE EE 

630 REM Initialization 

640 DIM A$(20),B$(20),C$(20),D$(6) 

650 GO=0:WG=0:REM WG - winnings 

660 CLS: RANDOMIZE:CLS 

670 PRINT: PRINT "How much money are you 

starting with (in dollars)"; 

680 INPUT CASH:PRINT 

690 IF CASH<1 THEN PRINT "You won't get 

far with that!":GOTO 670 

700 FOR J=1 TO 20:PRINT TAB(2*J);"* § # 

" 


710 READ E$:A$(J)=E$ 


720 READ E$:B$(J)=E$ 
730 READ E$:C$(J)=E$ 
740 GOSUB 970:NEXT J 


750 FOR J=1 
960:NEXT J 
760 CLS:RETURN 

770 REM #0 3 oe 0 ow oe ae 

780 DATA "1BELL","1BELL","1BELL","2BAR®%, 
"3PLUM", "4ORANGE" 

790 DATA "SCHERRY", "SCHERRY", "3PLUM","1B 
ELL","2BAR","1BELL" 

800 DATA "4ORANGE", "4ORANGE", "2BAR", "SCH 
ERRY","1BELL","3PLUM" 

810 DATA "6LEMON", "S5CHERRY", "4ORANGE", "5 
CHERRY", "4ORANGE", "1BELL" 

820 DATA "3PLUM","3PLUM", "6LEMON", "4YORAN 
GE", "1BELL", "4ORANGE® 

830 DATA "SCHERRY", "SCHERRY", "3PLUM", "1B 
ELL","3PLUM", "2BAR" 

840 DATA "4ORANGE", "4ORANGE", "6LEMON", "3 
PLUM", "1BELL", "4ORANGE" 


TO 6:READ E$:D$(J)=E$:GOSUB 


= = = = = = - - -- ~ 
= = = = 





PLUM 


BELL 


LEMON 


ORANGE CHERRY BAR 
CHERRY ORANGE BELL 
=> CHERRY 
BAR ORANGE 
RELL BELL 
CHERRY PLUM 
ORANGE BELL 
BELL ORANGE 
PLUM BAR 
CHERRY ORANGE 
CHERRY CHERRY 
i 7 LEMON 
CRANGE 
PLUM 
BAR 
LEMON 








JUST FOR FUN! 





850 DATA "5CHERRY", "5CHERRY", "3PLUM", "15 





Ly CHERRY CHERRY ELL", "4ORANGE", "1 BELL" 
eA Ol cat ie Jet ge tee Be 2 860 DATA "2BAR","2BAR", "4ORANGE", "4ORANG 
LEMON E","1BELL", "3PLUM" 
ORANGE 870 DATA "5CHERRY", "5CHERRY", "6LEMON", "3 
PLUM PLUM", "4ORANGE", "2BAR" 
BAR 880 REM 1 = BELL 
LEMON 890 REM 2 - BAR 
ORANGE 900 REM 3 = PLUM 
a gue e =. a. “S 910 REM 4 - ORANGE 
=> CHERRY CHERRY ORANGE 920 REM 5 - CHERRY 
ae oe nana 930 REM 6 - LEMON 


Q4O DATA "8M wan ngn nen nan min 
950 FOR T=1 TO 400:NEXT T: RETURN 


### Two cherries pays $2 #&# 960 PRINT "= = = = = = = = = = 
= =" 
reese. Je sas Oe He YN et ey. et 970 REM Add your computer's sound comman 
This is go number 5 d here 
=> Your money: $451 <s 980 RETURN 


=> Your winnings: $2 <s 


=> OK, press <RETURN> to pull the handle <= 
(or any other key to quit) 


Notes and High Scores — 








Oz-thello 


INVENTED IN THE LATE eighteen hun- 
dreds, Oz-thello is played on an eight by 
' eight checkerboard. When played on a 

board (as opposed to being played within 
a computer), you use pieces which have 
different colours on each side. The game 
begins with four pieces placed on the cen- 
tre squares. 

From this point on, you move by placing 
one of your pieces next to a computer 
piece or pieces, with one of your pieces 
further on. When that happens, all the 
computer pieces ‘reverse’ to become your 
pieces. 

Here’s how it works. Suppose a line of 
pieces looked like this: 

OXXXX 
and you decided to put your piece (the O) 
at the end of the line like this: 

OXXXXO 
The computer pieces would reverse, so the 
line looked like this after your move: 

OOO0000 
The game continues until every square on 
the board is filled, or neither player can 
move. As you can see, fortunes can change 
swiftly in this game, as rows branching off 
your position (such as on the diagonals) 
can be changed with a single move. If you 


cannot move at any time, you signal this - 


to the computer by entering a zero. Other. 
moves are entered by typing in the co-or- 

dinates of the square into which you wish 

to place your piece. Oz-thello was written 

by Graham Charlton. 


COMPUTER IS X 


HUMAN IS 0 
1234567 8 
Dig her ee “ee ie Wg 
2 . ae eae 
3 Od. oo 2: Bx 
yo, Oo xX X . 
5 . - X¥ OX . 
6 . X OX 
7 ie Oh, vie x . 
B > an ee eK ee 4 
1234567 8 
Computer: 8 
Human: 4 


ENTER YOUR MOVE? 47 


ie ac mmm eed 


ONAN Ewha 


BRAINTWISTERS 


10 
20 


30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
THE 
180 
THE 
190 
= 8 


200 
EN 

210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


REM Oz-Thello 
REM (¢c) Tim Hartnell, 
Interface Publications, 1986 
GOTO 750 
PRINT "MY MOVE..." 
S = XOX:T = X:H = 0 
FOR A = 2 TO 9:FOR B = 2 TO Q 
IF ACA,B) <> 46 THEN 220 
Q=0 - 
FOR C = =1 TO 1:FOR D = =1 TO 1 
K = O:F = A:G = B 
IF A(F+C,G+D) <> S THEN 140 
K = K + 1:F = F + C:G = G + OD 
GOTO 110 
IF A(F+C,G+D) <> T THEN 160 
Q=+Q+kK 
NEXT D: NEXT C 


IF A = 2 OR A = 9 OR B = 2 OR B = Q 
N Q = Q#2 
IF A = 3 OR A = 8 OR B = 3 OR B = 8 
N Q = Q/2 


IF (A = 2 OR A = 9) AND (B = 3 OR B 


) OR (A = 3 OR A = 8) AND (B = 2 OR B 
9) THEN Q = Q/2 

IF Q < H OR (RND(1)<.3 AND Q = H) TH 
220 


H = Q:M = A:N = B 
NEXT B: NEXT A 
IF H = Q AND R = O THEN 700 
IF H = 0 THEN 260 
GOSUB 590 
GOSUB 380 
INPUT "ENTER YOUR MOVE ";R 
REM ENTER O TO PASS 
S = X:T = XOX 
IF = 0 THEN 360 
< 11 OR R > 88 THEN 270 
R = R + 11 
M = INT(R/10) 
N= R = 10®M 
GOSUB 590 
GOSUB 380 
GOTO 40 
REM PRINT BOARD 
C = 0:H = 0 
CLS:REM OR 'HOME! 


= 


PRINT . 

PRINT * COMPUTER IS Xx" 
PRINT * HUMAN IS oF 
PRINT 


PRINT TAB(5);"1 2 3 4 5 6 7 8" 
FOR B = 2 TO 9:PRINT B = 1;" "%; 
FOR D = 2 TO 9 








480 PRINT CHR$(A(B,D));" "%; 

490 IF A(B,D) =:X THEN C 

500 IF A(B,D) = XOX THEN 

510 NEXT D 

520 PRINT B - 1 

530 NEXT B 

540 PRINT TAB(5);"1 2 3 45 6 7 8" 
550 PRINT: PRINT 

560 PRINT "Computer: "C 

570 PRINT: PRINT"Human: "H 

580 

590 - 1 
600 M:G = N 
610 IF A(F+C,G+D) <> S THEN 640 
620 F+cC:G=+G+D 

630 GOTO 610 

640 IF A(F+C,G+D) <> T THEN 680 
650 A(F,G) = T 

660 IF M = F AND N = G THEN 680 
670 F = F = C:G = G = D:GOTO 650 
1680 NEXT D:NEXT C 

690 *RETURN 

700 GOSUB 380 


TO 1:FOR D = - 1 TO 1 


IN THIS GAME, TWO players take turns 
placing pieces in the lowest available 
position in the columns on a game board 
trying to be the first to get four of their 
pieces to form a line in any direction. 

The program, written by Tony Pearce, 
plays extremely well, and will prove a diffi- 
cult, almost impossible, opponent to de- 
feat. It assigns a value to each possible 
move, and then evaluates each of these 
moves in terms of whether or not this will 
help win the game. It then selects the 
move with the best potential. 

In the program as listed, your pieces are 
shown as an ‘o’, and the computer's 
pieces as ‘M’ (for ‘machine’, I think). If you 
want to change them, simply modify line 
140, with CS being the computer piece, 
and HS the human piece. 


710 


720 
Pye 
730 
740 
750 
760 
770 
780 
790 
Cc < 


TWE 
90 





BRAINTWISTERS ~~ 


> H THEN PRINT "I'M THE CHAMP!" 
> C THEN PRINT "YOU'RE THE CHAM 


C THEN PRINT "IT'S A DRAW!" 


X = ASC("X"):xOX = ASC("0") 

DIM A(10,10) 

FOR B = 1 TO 10:FOR C = 1 TO 10 

IF B <> 1 AND C <>1 AND B <> 10 AND 
> 10 THEN A(B,C) = ASC(",") 

NEXT C: NEXT B 

A(5,5) = X: A(6,6) 
A(6,5) = 

P= 0 
PRINT "DO YOU WANT THE FIRST MOVE" 
PRINT 


x 


XOX: A(5,6) = XOX 


= "Y" OR W$ = "y" THEN GOTO 27 


GOTO 40 


REM *##*® CONNECT FOUR #### 
REM (c) Tim Hartnell, 1986 


PRINT "CONNECT FOUR" 
PRINT 
PRINT "ENTER YOUR MOVE AS A NUMBER BE 
EN" 
PRINT "1 AND 8, 
" 

FOR F=1 TO 1000:NEXT F 

DIM A$(10,10),B(10,2) 

FLAG=0 

REM CHANGE NEXT LINE FOR YOUR OWN 

CHOICE OF SYMBOLS (C$-COMPUTER) 

C$="M":H$="o":REM M FOR MACHINE! 
FOR F=1 TO 8 

B(F,1)=6 

NEXT F 

FOR F=1 TO 6 

FOR G=1 TO 8 

A$(F,G)="," 

NEXT G 


ENTER O FOR A NEW GAM 
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540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


NEXT F 

REM SHKKKKERKKKKKKKE SRE EE HES 
REM ACCEPT HUMAN MOVE 

GOSUB 430 

PRINT: PRINT "YOUR MOVE..." 
INPUT A 

IF A=0 THEN RUN 

IF A<1 OR A>8 THEN 270 

L=0 

IF A$(L+1,A)<>"." OR L=6 THEN 340 
L=L+1 

GOTO 310 

IF L=0 THEN 270 

A$(L,A)=H$ 

B(A,1)=B(A,1)-1 

GOSUB 430 

GOSUB 560 

GOSUB 430 

GOTO 260 

REM HERKKKRKKRKEKRKKRKKEKRKRER EEE 
REM PRINT BOARD 

CLS 

FOR F=1 TO 6 

FOR G=1 TO 8 


PRINT A$(F,G); 


NEXT G 

PRINT 

NEXT F 

PRINT "12345678" 

PRINT 

IF FLAG=1 THEN PRINT "I HAVE WON": EN 


RETURN 

REM KKRKEKKKEKKKKEKKKEKREKERTS 
REM COMPUTER MOVES 

PRINT "MY MOVE..." 

MV=0 

FOR Fs1 
B(F,2)=0 
NEXT F 
FOR F=1 TO 8 

FOR X=-1 TO 1 

FOR Y=-1 TO 1 

IF B(F,1)=0 THEN 680 

IF A$(BC(F,1)+X,F+Y)="" OR A$(B(F,1)+ 


TO 8 


X,F+¥)="." THEN 680 


660 
0 
670 
0 
680 
690 


IF A$(B(F,1)+X,F+Y)=H$ THEN GOSUB 81 
IF A$(B(F,1)+X,F+Y)=C$ THEN GOSUB 91 


NEXT Y 
NEXT X 


BRAINTWISTERS 


710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


~ Mio... 
..MMMM.. 
--00Mo,.. 
--OMoo.. 
12345678 


I HAVE WON 


NEXT F 

P=0 

FOR F=1 TO 8 

IF B(F,2)>P THEN P=B(F,2):N=F 
NEXT F 

A$(B(N,1),N)=C$ 
B(N,1)=B(N,1)-1 

N=0 

P=0 

RETURN 

REM SH RRHEHKRRERERREEEERE ERED 
MV=2 

M1=MV 

IF A$(B(F,1)+(X#2) ,F+(Y#2))=H$ THEN 


MV=MV+10 


840 


850 
860 


IF A$(B(F,1)-X,F-Y)=H$ THEN MV=MV+20 


IF MV<>M1+10 THEN 870 
IF A$(B(F,1)+(X#3),F+(¥#3))=H$ THEN 


MV=MV+1000 


870 
880 
890 
900 
910 
920 
930 


B(F,2)=B(F,2)+MV 

M1=0 

RETURN 

REM KRKKKKKRKEKKEKEKRERKESRKHREE 

MV=2 

M1=MV 

IF A$(BC(F,1)+(X#2),F+(Y#2))=C$ THEN 


MV=MV+9 


940 


950 
960 


IF A$(B(F,1)-X,F-Y)=C$ THEN MV=MV+20 


IF MV<>M1+9 THEN 970 
IF A$(B(F,1)+(X*3),F+(Y#3))=C$ THEN 


MV=MV+2000:FLAG=1 


970 
980 


B(F,2)=B(F,2)+MV 
RETURN 











Gomoku 


YOU'LL FIND GOMUKU an easy game to 
learn, but one which is almost impossible 
to win. The computer plays extremely well 
(if a little s-l-o-w-I-y) in this program, which 
is based on one written by Graham Charl- 
ton, the programmer who produced Oz- 
thello. 

You have to try and get five of your 
pieces (the 'H’) in a line in any direction, 
while the computer is trying to do the 
same with its pieces (the 'C’). 


Notes and Ideas — 


BRAINTWISTERS 


REM GOMOKU 
REM (c) Tim Hartnell, 
Interface Publications, 1986 
GOSUB 760 
GOSUB 140 
GOSUB 250 
GOSUB 140 
GOSUB 330 
GOSUB 140 
IF L>3 THEN PRINT: PRINT "I WIN!I": END 


+ N: IF A(E)<>Z THEN RETURN 
+ 1:GOTO 120 


PRINT: PRINT: PRINT 

PRINT TAB(12);"1 2345 67 8" 
FOR A = 1 TO 8:PRINT TAB(8);A;" "; 
FOR B = 2 TO 9 

PRINT CHR$(A(A®10 + B))3" "3 

NEXT B 

PRINT A 

NEXT A 

PRINT TAB(12);"1 2 3 4 5 6 7 8" 
RETURN 

PRINT: PRINT 

PRINT "Please enter your move..." 
INPUT G 

G=G+1 
IF G<12 OR G>89 OR A(G)<>46 THEN 270 


Z= iH 
A(G) = Z 
RETURN 


FOR X = 1 TO 4:K = 0: 

GOSUB 110 

N = = N:GOSUB 110 

IF K>L THEN L = K 

NEXT X 

IF L>3 THEN PRINT: PRINT "You winl!": 


IF A(A)<>46 THEN 580 
FOR X = 1 TO 4:K = O:N = X(X) 
GOSUB 110 
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500 
510 
520 
530 


- N:GOSUB 110 
IF K>L THEN H1 = 
IF L<>K THEN 550 
IF T=1 AND L<4¥ OR (T=2 OR T=3) AND L 


O:L = K 


<2 THEN 550 


540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


M+ 1 
NEXT X 
IF M<=H1i THEN 580 
H1 = M:G =A 
NEXT A 
IF H1i<>0 THEN 660 
T + 1: IF T<>4 THEN 420 
1 
INT(RND#77) + 13 
IF A(G) = 46 THEN 660 
A = A + 1:IF A<100 THEN 620 
PRINT: PRINT "I concede the game": PRI 


NT"to a master!!":END 


660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
TTO 
780 
790 
800 
810 
820 


GOSUB 110 

N = -N:GOSUB 110 
IF K>L THEN L=K 

NEXT X 

RETURN 

CLS 

DIM A(100),X(4) 

FOR C = 1 TO 8 
FOR B = 2 TO 9 
A(C#10 + B) = 

NEXT B 

NEXT C 
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Notes and High Scores — 


BRAINTWISTERS 


830 
840 
850 
860 
870 
880 
A 


890 
900 
910 
920 
930 


1 TO 4 
X(Q) = 


FOR Q = 
READ Z: 
NEXT Q 
DATA 1,9,10,11 

H = ASC("H"):C = ASC("C®) 

PRINT: PRINT “Enter Y if you want the 
PRINT "first move, N if you don't" 

N = 0 

N=N+ 1 

A$ = INKEY$ 

IF A$ <> "y"™ AND A$ <> "Y¥" AND A$ <> 


"n" AND A$ <> "N" THEN 910 


940 
950 
960 
970 
980 
990 


RANDOMIZE N 


y" OR A$ = "Y" THEN RETURN 


" 
1 TO INT(RND#12) + 1 


1000 A(Z) 
1010 RETURN 
1020 DATA 34,35,44,46,47,54,55,56,57,66 


AONAW EWN = 
—_ @ e s e e e e e ~—_ 
Mee TW |AQAQe eo ew 
mJ © 8 mee ee =] 
meee e ee e ec e & 

ONIAWM FW DY = 














BRAINTWISTERS 


Draughts | 


THIS PROGRAM, WHICH I wrote when 
holidaying in Wales (how's that for coun- 
try-dropping!), puts up a fair defense for 
most of the game, then often collapse at 
the end. You might be able to beef up its 
end play. 

When the game begins, you're at the 
bottom of the screen playing up, and the 
computer is at the top playing down. As 
the program is currently set up, the com- 
puter always has the first move. If you 
want the first move, simply delete line 60. 
Your pieces are the H's, and the comput- 
er’s pieces are C’s. Your kings are K’s, and 
the computer's kings are $’s. 


Notes and Ideas — 


REM DRAUGHTS 
REM (c) Tim Hartnell, 
Interface Publications, 1986 
GOSUB 1090 
REM DELETE LINE 50 FOR HUMAN 
REM TO HAVE FIRST MOVE 
GOTO 100 
REM RHMHHHHAH RHEE HRRRRRRERR ERE E EE 
GOSUB 650 
GOSUB 830 
GOSUB 650 
GOSUB 140 
GOTO 80 
REM #HHHHHSHSHHAEHHREHRRHE HERE EE 
FOR X = 1 TO 10:S(X) = O:NEXT X 
= O:A = 89 
AzA- 1 
IF Q(A) <> C AND Q(A) <> CK THEN 290 


B O:IF A < 29 THEN B = 2 
B B + 1 

M A + N(B) 

IF M > 88 OR M < 11 THEN 290 

IF (Q(M)=H OR Q(M)=HK) AND Q(M+N(B)) 
=sE THEN 330 
230 IF Q(M)<>E THEN 280 
240 IF Q(M-11)=H OR Q(M-11)=HK OR Q(M-9) 
=H OR Q(M-9)=HK THEN 280 
250 IF Q(M+9)=HK OR Q(M+22)=HK OR Q(M+18 
)=HK THEN 280 
260 IF Q(M+11)=HK THEN 280 
270 IF Q(M+9)<>C OR Q(M+9)<>CK OR Q(M+11 
}=C OR Q(M+11)=CK THEN GOSUB 450 
280 IF B < 2 OR (Q(A)=CK AND B < 4) THEN 

190 

290 IF A > 11 THEN 160 
300 FL = O:IF Q(22) = C OR Q(24) = C OR 
Q(26) = C OR Q(28) = C THEN GOSUB 1330 
310 IF FL = 1 THEN 620 
320 GOTO 470 
330 Q(M+N(B)) = Q(A):Q(M) = E:Q(A) 
340 CO = CO + 1 
350 GOSUB 650 
360 M + N(B) 
370 0 
380 B+ 1 
390 IF (A+2"®N(B)<11 OR A+2*N(B)>88) AND 
B < 4 THEN 380 
400 M = A + N(B) 
410 IF Q(M) = C AND B > 3 THEN RETURN 
420 IF (Q(M)=H OR Q(M)=HK) AND Q(M+N(B)) 
=E THEN 330 > 
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Draughts 


430 IF B < 2 OR (Q(A) = 

380 
440 
450 


CK AND B<4) THEN 


RETURN 

IF SC < 10 THEN SC = SC + 1 
460 S(SC)=1008A + B + 20: RETURN 
470 IF SC = 0 THEN 520 

480 XC = INT(RND®SC) + 1 

490 A = INT(S(XC)/100) 
500 M = A + N(S(XC) - 
510 GOTO 620 

520 SC = SC + 1: A = INT(RND#®88) + 1 

IF Q(A) <> C AND Q(A) <> CK THEN 600 


100A = 20) 


OR M < 11 THEN 590 
E THEN 620 
OR Q(A) = CK AND B <¢ 4 THEN 


SC < 300 THEN 520 
PRINT: PRINT "I concede the game": END 


Q(M) = 
RETURN 
REM #RHHHHHSAHHEH HERRERA HHRRE REESE 
CLS: PRINT: PRINT 

PRINT " COMPUTER: "CO 

PRINT " HUMAN: "HU: PRINT: PRIN 


Q(A):Q(A) = E 


PRINT * 123 4 5 67 8" 

FOR F = 80 TO 10 STEP = 10 

PRINT F/10;" "; 

FOR G = 1 TO 8: PRINT CHR$(Q(F + G)); 
;: NEXT G 

PRINT F/10:NEXT F 

PRINT *% 1234567 8" 

IF CO = 12 OR EU = 12 THEN 760 
RETURN 

IF HU = 12 THEN PRINT "You have won" 
IF COQ = 12 THEN PRINT "I have won®" 
PRINT "Thanks for the game": END 

REM #KFSKHKHHSKERRHAHHSRRRA RARE ES 
REM 99 TO CONCEDE 

PRINT: PRINT 

PRINT "Enter your move" 

PRINT: PRINT 

PRINT “Enter your nove" 

REM Enter 99 to end game 

INPUT "From"; A 

IF A = 99 THEN GOTO 786 

IF Q(A) <> H AND Q(A) <> HK THEN 860 


BRAINTWISTERS 


890 INPUT "To";B 
900 IF Q(B) <> E THEN 890 
910 Q(B) = Q(A):Q(A) = E 
920 REM RHAKKKKHKKHRRKKKRAKRKKHKKHRARRHRES 
930 FOR T = 11 TO 17:IF Q(T) C THEN Q( 
T) = CK 
940 NEXT T 
950 FOR T = 
T) = HK 
960 NEXT T 
970 REM FH#KFKRHKKKHHAKRHRARHKRHSRHHHRFRR ATER 
980 IF ABS(A = B) < 12 THEN RETURN 
990 TY = RND 
1000 IF TY < .2 THEN PRINT "Good move":G 
OSUB 1400 
1010 IF TY > 
UB 1400 
1020 HU = HU+1:Q((A + B)/2)=E:GOSUB 650 
1030 FOR T = 82 TO 88:IF Q(T) = H THEN Q 
(T) = HK 
JU4U NEAT T 
1050 PRINT: INPUT "Can you jump again (Y 
or N)";A$ 

IF A$ <>"y" AND A$ <> "Y" THEN RETU 


82 TO 88:IF Q(T) H THEN Q( 


-7 THEN PRINT "Got met": GOS 


A = B:GOTO 880 
REM FSSHEHHHRHRHHHHHRRHARHH RARER 
REM Initialise 
CLS 
PRINT "Please stand by" 
DIM Q(99),N(4),S(10) 
= ASC("H"):HK = ASC("K") 
ASC("C"):CK = ASC("$") 
32:0F = = 99 
1 TO 99:Q(M) = 
1 TO 64 
READ D:READ G 
Q(D) = G: NEXT M 
DATA 81,46,82,67,83,46, 84,67, 85,46, 
86,67,87,46 
1210 DATA 88,67,71,67,72,46,73,67,74, 46, 
75,67,76,46 
1220 DATA 77,67,78,46,61,46,62,67,63,46, 
64,67 
1230 DATA 
52,46 
1240 DATA 
58,46 
1250 DATA 41,46,42,32,43,46,44,32,45,46, 
46,32 
1260 DATA 47,46,48,32,31,72, 32,46, 33,72, 
34,46,35,72 


M = OF: NEXT M 
M = 


65,46,66,67,67,46,68,67,51, 32, 
53,32,54,46,55,32,56,46,57, 32, 








COMPUTER: 
HUMAN: 


2 4 6 
C e Cc s Cc 
C C C 


]2]NW FU AA & 
foo 
qQ 
me me 


Enter your move 
From? 24 
To? 35 





BRAINTWISTERS 


me 


CO« 





=2]2NW Funan © 








1270 DATA 36,46,37,72,38,46,21,46,22,72, 
23,46,24,72 

1280 DATA 25,46,26,72,27,46,28,72,11,72, 
12,46,13,72 

1290 DATA 14,46,15,72,16,46,17,72,18, 46 

1300 FOR M = 1 TO 4:READ X:N(M) = X:NEXT 


1310 DATA ~11, -9, 11, 9 

1320 CO = 0:HU = 0:RETURN 

1330 IF Q(22)=C AND Q(11)=E THEN A=22:M 
= 11:FL = 1:RETURN 

1340 IF Q(22)=C AND Q(13)=E THEN A=22:M 
= 13:FL = 1:RETURN 

1350 IF Q(24)=C AND Q(13)=E THEN A=24:M 
= 13:FL = 1:RETURN 

1360 IF Q(24)=C AND Q(15)=E THEN A=24:M 
= 15:FL = 1:RETURN 

1370 IF Q(26)=C AND Q(15)=E THEN A=26:M 
= 15:FL = 1:RETURN 

1380 IF Q(26)=C AND Q(17)=E THEN A=26:M 
= 17:FL = 1:RETURN 

1390 RETURN 

1400 FOR O = 1 TO 1000:NEXT O: RETURN 
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The Your Computer Robot 


The YC Robot can follow a series of com- 
mands you type in, using a language we 
invented just for the program, called 
Robot Control Language (or ‘RCL’). You 
enter.the program, then put your com- 
mands in the lines 50 to 220, and then run 
the program. The ‘robot’ will then carry 
out your instructions 

In mid-1983, Muse Software of Balti- 
more, USA, released a superb robot simu- 
lation program under the name of Robot- 
war. This program allows you to pre-pro- 
gram a number of robots, before setting 
them loose on a computer-screen battle- 
field to fight it out for victory. Robotwar al- 
lows you to program the robots in a lan- 
guage which is essentially English, with a 
few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, The Your Computer 
Robot, is much simpler than Robotwar, 
yet still produces satisfying, and surpris- 
ingly interesting results. 

There are twelve commands in RCL, any 
of which can be abbreviated to the first 
two letters. The RCL program is included 
within the overall BASIC program, as a set 
of up to twelve DATA statements, termi- 
nated by a DATA statement which just 
contains an asterisk. These DATA lines are 
kept near the beginning of the program. 
The current line which is being processed 
appears at the top of the screen as the 
program is running, so you can see the 
relevant line and its effect, as it occurs. 

Here is the complete vocabulary of RCL: 
START (which can be abbreviated to ST) 
— start again; 

PRINTOUT (PR) — stop the robot action, 
clear the screen, and print out the current 
situation before continuing with the run; 
FORWARD (FO) - this is followed by a sin- 
gle number, and it tells the robot to move 
forward by the number of ’steps’ or 
‘spaces’ indicated by the number which 
follows the command; 

BACK (BA) —this is the opposite, naturally 
enough, of FORWARD; 
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STARTLING SIMULATIONS 


REM The Your Computer Robot 
GOSUB 1640:REM INITIALIZE 
GOTO 400 

REM SH#HTHHOKHHHESHEHHERHEHEEE EES 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DATA "#a 

REM FHHHHHHHHKEEERHREREEEEE EEO EE 
REM INT UX, AX 

UX=INT(UX+.5) sAX=INT(AX+.5) 
RETURN 

REM SHREK H HEE HERR HH EEE EEE 
REM PRINT OUT 

CLS:REM OR LOCATE 1,1 OR SIMILAR 
PRINT "STEP "PSN" > ";A$(PSN): PRINT 
FOR J=1 TO DEPTH 

FOR K=1 TO BREADTH 

PRINT 2$(J,K)3 

NEXT K 

PRINT 

NEXT J 

RETURN 

REM HHHHHHHHHHHEHSEHEEHEEEE EOE HH 
REM READ PROGRAM 

COUNT=COUNT+1 

READ A$(COUNT) 

IF A$(COUNT)="#" THEN 460 

IF COUNT<20 THEN 410 

REM #HHHHHSHEREEEEEHRAER EEE EEE EE 
REM EXECUTE PROGRAM 

PSN=0:REM PROGRAM STEP NUMBER 
PSN=PSN+1 

IF PSN=21 THEN 490:REM END 
FLAG=0 

M$=A$(PSN) 

IF M$="*#" THEN 520: REM END 
N$=LEFT$(M$,2) 











~The Your Comput 


TURN (TU) — followed by a number, this 
command turns the robot through the 
specified number of degrees (more or 
less); it starts a run at zero degrees, with 
zero being considered as facing the top of 
the screen; 

HOME (HO) -— returns the robot to the 
centre of the screen, facing upwards; 
CLEAN (CL) — cleans the previous steps 
away (the action of this command, like the 
others, will become clear once you use it); 
GO - this is followed by two numbers, 
which are the co-ordinates to which the 
robot moves without leaving a trail be- 
tween its old position and the new one; 
RANDOM (RA) - this moves the robot to a 
randomly chosen position on the screen; 
it acts as a random GO; 

REPEAT (RE) — followed by a number, this 
command allows you to cycle through a 
section of a program a specified number 
of times before continuing. This can pro- 
duce some fascinating effects, as you'll 
see; 

END REPEAT (EN) — terminates the RE- 
PEAT cycle. All the RCL commands which 
lie between REPEAT and END REPEAT 
will be cycled through the number of 
times specified; 

FACE (FA) — followed by a number, this 
turns the robot to face an absolute angle, 
with the top of the screen as zero degrees 
(in contrast to FACE, the TURN command 
is relative to the current angle at which 
the robot is facing); 

So — to use the Your Computer Robot, 
just enter your commands in the lines 50 
through to 220 in the program. 

Here are some sample programs — 
For an octogan: 

GO 11,35 

REPEAT 8 

FORWARD 4 

TURN 45 

END REPEAT 

PRINTOUT 


STARTLING SIMULATIONS 


540 N$="ST" 
550 N$="PR" 
UT 

560 N$="FO" FLAG=1 

570 N$="BA" FLAG=2 

580 N$="TU" FLAG=3 

590 N$="HO" FLAG=4 

600 N$="CL" FLAG=5 

610 N$="GO" FLAG=6 

620 N$="RA" FLAG=7 

630 N$="RE" FLAG=8 

640 N$="EN" FLAG=9 

650 N$="Fan FLAG=10 

660 FLAG GOSUB 690,850,910,1070,1130, 
1170,1310,1370, 1440, 1490 

670 GOTO 480 

680 REM KH KKKKKKKKKKRKKKKRKKRKERKEE EE 

690 REM FORWARD 

700 M$=MID$(M$,4) 

710 IF ASC(M$)=87 THEN M$=MID$(M$,6) 

720 F$="F" 

730 NUM=VAL(M$) 

740 FOR E=1 TO NUM 

750 IF UX<1 OR UX>DEPTH THEN 790 

760 IF AX<1 OR AX>BREADTH THEN 790 

770 Z2$(UX,AX)=T$ 

780 REM DELETE THE '*®2' AT END OF NEXT 
TWO LINES IF BETTER ON YOUR SYSTEM 

790 IF F$="F" THEN UX=UX+UP: AX=AX+AC#2 
800 IF F$="B" THEN UX=sUX-UP: AX=AX-AC#2 
810 GOSUB 250 

820 NEXT E 

830 RETURN 

840 REM KK KKKKKKKKRKKERKEKKKRKRRRRREED 
850 REM BACK 

860 M$=MID$(M$,4) 

870 IF ASC(M$)=75 THEN M$=MID$(M$,3) 

880 F$="B" 

890 GOTO 730 

900 REM ##HHRHEEHERREEEHHEERER EERE RE 

910 REM TURN 

920 M$=MID$(M$,4) 

930 IF ASC(M$)=78 THEN M$=MID$(M$, 3) 

940 NUM=VAL(M$) 

950 Y=INT( (NUM+17.5)/45) 

960 IF Y=0 OR Y=8 THEN RETURN 

970 FOR J=1 TO Y 

980 IF UP=-1 AND AC=0 THEN AC=1:GOTO 104 
0 

990 IF UP=0 AND AC=1 THEN UP=1:GOTO 1040 


470:REM START AGAIN 
GOSUB 290:REM PRINTO 


1000 IF UP=1 AND AC=0 THEN ACz=~1:GOTO 10 
40 Db 
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To get diamonds: 
RANDOM 
FACE 45 
REPEAT 4 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 


To print out a square: 
GO 11,35 
REPEAT 4 
FORWARD 6 
TURN 90 
END REPEAT 
PRINTOUT 


For a random design of octagons: 
RANDOM 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 


START AGAIN 
* 


To print out my initials, | wrote this little 
RCL program: 

GO 6,10 

FACE 90 

FORWARD 7 

GO 8,26 

FORWARD 5 


FORWARD 6 
GO 6,26 
FORWARD 6 
GO 6,34 
FORWARD 6 
PRINTOUT 


With these examples to get you underway, 
you're sure to be able to create some 
pretty interesting designs of your own. 


STARTLING SIMULATIONS 


1010 
040 
1020 


IF UP=0 AND AC==1 THEN UP=-1:GOTO 1 


IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 


THEN AC=0:GOTO 1040 


1030 


IF UP=-1 AND AC=1 OR UP=1 AND AC=-1 


THEN UP=0 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


NEXT J 

RETURN 

REM SHSHKHHHKHKHRKRHHHHRHHRHRHHH EDS 
REM HOME 

AX=INT( (BREADTH+.5)/2) 

UX=INT( (DEPTH+.5)/2) 
UP=~1:AC=0:REM FACES UP 

RETURN 

REM KHHHHHHHKHKHARRHKRRR ERE RE REE 
REM CLEAN 

GOSUB 1770 

RETURN 

REM #H#KHKHHKHKKHHKKKHEHHHKK RHR ASS 
REM GO X,Y 

P=0 

P=P+1 ; 

IF MID$(M$,P,1)="," THEN 1230 

IF P<LEN(M$) THEN 1190 
RETURN: REM ERROR 
UX=VAL(MID$(M$,4,P-1)) 

AX=VAL( RIGHT$(M$,LEN(M$)-P) ) 
GOSUB 250 

IF UX<1 OR UX>DEPTH THEN 1290 

IF AC<1 OR AC>BREADTH THEN 1290 
Z2$(UX, AX)=R$ 

RETURN 

REM HHH HHHKKKHHKHHKKRHHKRHRHE EH 
REM RANDOM 
AX=INT(RND(1)*®BREADTH) 
UX=INT(RND( 1) *DEPTH) 
Z$(UX, AX) =R$ 

RETURN 

REM FHHHHHKHKKKHKRHKHKHKHHKKHE HH 
REM REPEAT 
M$=MID$(M$, 4) 

IF ASC(M$)=69 THEN M$=MID$(M$,5) 
RECOUNT=VAL(M$) 

MARKER=PSN 

RETURN 

REM AZARAE RLASALESSEE ERE LEE SS SO 
REM END REPEAT 
RECOUNT=RECOUNT-~1 

IF RECOUNT>O THEN PSN=MARKER 
RETURN 

REM S#FKKKKHHHKHKEKRHRHHHHRHRKRRE SE 
REM FACE 
M$=MID$(M$,4) 














STARTLING SIMULATIONS 


IF ASC(M$)=69 THEN M$=MID$(M$, 3) 1670 BREADTH=80:REM CHARACTERS ACROSS 
NUM=VAL(M$) 1680 DEPTH=24:REM CHARACTERS DOWN 
Y=INT( (NUM+17.5)/45) #45 1690 BREADTH=BREADTH-1 
Y=0 OR Y=360 THEN UP=-1:AC=0 1700 DEPTH=DEPTH-3 
Y=45 THEN UP=-1:AC=1 1710 UP=-1:AC=0:REM STARTS FACING UP 
Y=90 THEN UP=0:AC=1 1720 DIM A$(20):REM FOR ROBOT PROGRAM 
Y=135 THEN UP=1:AC=1 1730 DIM Z$(DEPTH, BREADTH):REM DISPLAY 
Y=180 THEN UP=1:AC=0 1740 T$="X":REM PUT SYMBOL HERE YOU 
Y2225 THEN UP=1:AC=-1 WANT TO USE FOR ROBOT'S TRAIL 
Y=270 THEN UP=0:AC=-1 1750 AX=0:UX=0 
Y=315 THEN UP=-1:AC=-1 1760 REM FILL ARRAY WITH SPACES 


RETURN 1770 FOR J=1 TO DEPTH 
REM FHRSFHKHKRHSRAKHKHAHARRARHRHEEER SE 1780 FOR K=1 TO BREADTH 


REM INITIALIZE 1790 zZ$(J,K)=" " 


CLS 1800 NEXT K 
REM ADJUST NEXT TWO LINES FOR 1810 NEXT J 


BEST RESULTS ON YOUR SYSTEM 1820 RETURN 


STEP 7 > PR 


Notes and Ideas — 
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STARTLING SIMULATIONS 


Livin’ in the Lodge 


They say that in Australia, politicians are 
considered to be the third worst form of 
life (just above child molesters and jour- 
nalists). Most of us feel, from time to time, 
we could do a better job than those daring 
to run our lives from Canberra. 

Well, here’s your chance to prove your 
political skills. With this program, you 
move into the Lodge in Canberra to run 
the country. To retain your popular sup- 
port (and the number one job in the coun- 
try), you have to keep Australia together. 
You need to do your best to improve the 
standard of living, keep inflation and 
unemployment down, stimulate private 
investment, and generally maintain an ac- 
ceptable growth in the economy, all at the 
same. You'll soon discover the wisdom of 
the words of one former occupant of the 
Lodge: ‘A Prime Minister's life wasn’t 
meant to be easy’. 

The population of Australia is around 
three million when you begin, and unem- 
ployment will be hovering around 10%. 
You'll be asked to make some snap judge- 
ments on levels of government spending, 
the cost of wages, and on your current im- 
migration policy. To take part in this pro- 
gram, you have to be the ACTU, the Prices 
Surveillance Authority, the New Right, the 
Industrial Tribunal, and the Department of 
Immigration and Ethnic Affairs, all at the 
same time! 

You'll soon find that, no matter how 
good your intentions, it is a very difficult 
juggling act to control. 


30 


10 REM LIVIN' IN THE LODGE 

20 REM PHILIP COATES 

30 REM (c) Interface Publications, 1986 

40 GOSUB 1180:REM INITIALIZE 

50 REM ####SSSEHEEER EERE ERR H EES 

60 REM MAJOR CYCLE 

70 P=INT( P+(P#273/ML) ) 

80 GOSUB 180:REM PRINTOUT 

90 GOSUB 530:REM CALCULATE 

100 REM NOW CHECK END GAME 

110 GOSUB 730:REM STANDARD OF LIVING 

120 GOSUB 800:REM INFLATION RATE 

130 GOSUB 860:REM UNEMPLOYMENT 

140 IF GAME=1 THEN CLS:GOTO 910 

150 GOTO 70 

160 REM ### SHR EHEERER HERE RHEE EEE 

170 REM PRINTOUT 

180 CLS 

190 PRINT "PRIME MINISTER ";A$;":" 

200 PRINT “YOUR PARTY HAS BEEN IN 
POWER FOR"Y+Z/4"YEARS" 

210 PRINT "-~------ nnn n nnn ee ee ene ee eo 


220 PRINT " 

negra | 

230 PRINT 

ate ee 

240 PRINT "*POPULATION"P 

250 PRINT "NO. UNEMPLOYED"INT(U)" "INT( 
100#U/P)"g" 

260 PRINT "CURRENT WAGES $"WO" INFLATION 
"INT(IP)"$" 

270 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M"GE 

280 PRINT "UNEMPLOYMENT COST $M"INT(10*G 
U)/10 

290 PRINT “INCOME FROM TAXES $M"INT(GI#1 
0)/10 

300 PRINT "BUDGET SURPLUS(+)/DEFICIT(-) 
$M" INT(BD#10)/10 

310 PRINT "GROSS DOMESTIC PRODUCT $M"INT 
(GDP#10)/10 

320 IF Y+Z/4>.5 THEN PRINT "CHANGE IN LI 
VING STANDARD"INT((2*((RGDP/AGDP) #100) -=1 
00)/3)"g" 

330 PRINT " 


340 PRINT "PUBLIC INVESTMENT 
T(IV*10)/10 
350 PRINT " 


360 PRINT "OK, PRIME MINISTER ";A$;".. 











win the Lodge 


"ENTER GOVERNMENT SPENDING $M" 





370 INPUT 
;GE 
380 
390 
OF" 
400 
2" 
410 
420 
430 
440 
450 
460 
ALLOW 
470 INPUT M 
480 IF M<O THEN 470 
490 P=P+M 
500 RETURN . 
510 REM KHHKKHHKEKHKKKKHKKHKHERHSKHRKREEREE 
520 REM CALCULATIONS 
530 CN=CN+(CN#IP/100) 
540 UsP*(GE+IV)/(CN®10)+P*#(IP/1000) 
550 GU=U*WN/ML: REM UNEMPLOYMENT COST 
560 GI=(((P-U)*WN#®.4)/ML):REM INCOME 
FROM TAXES 
BD=BD+GI-GU-GE:REM BUDGET DEFICIT 
AGDP=AGDP#(1+(IP/100)) 
GDP=GE+IV+((P-U) *WN/ML) 
RGDP=GDP*440/AGDP 


INPUT 
PRINT 


"ENTER COST OF WAGES $M";WN 
"IS YOUR GOVERNMENT IN FAVOUR 
PRINT "IMMIGRATION THIS QUARTER (Y/N 
X$=INKEY$ 

IF X$<>"Y" AND X$<>"N" THEN 410 
PRINT TAB(20);"OK...%;X$ 

FOR H=1 TO 1000:NEXT H 

IF X$<>"Y" THEN RETURN 


INTO AUSTRALIA?" 


570 
580 
590 
600 


PRIME MINISTER HARTNELL: 
YOUR PARTY HAS BEEN IN 
POWER FOR .5 YEARS 


POPULATION 3001638 

NO. UNEMPLOYED 207954 6 
CURRENT WAGES $ 4% INFLATION 6 % 
GOVT. EXPENDITURE LAST QTR. $M 3 
UNEMPLOYMENT COST $M .8 

INCOME FROM TAXES $M 4.4 

BUDGET SURPLUS(+)/DEFICIT(-) $M 
GROSS DOMESTIC PRODUCT $M 250.1 


ee 


OK, PRIME MINISTER HARTNELL... 
ENTER GOVERNMENT SPENDING $M? 7 
ENTER COST OF WAGES $M? 12 

IS YOUR GOVERNMENT IN FAVOUR OF 
IMMIGRATION THIS QUARTER (Y/N)? 


STARTLING SIMULATIONS 


PRINT "HOW MANY IMMIGRANTS WILL YOU — 


IP=((GE+1V)/CN®.14+(WN/WO)/100) #100 
IV=(CN®67)/(IP*®IP) 

WO=WN 

Z=Z+1:IF Z>4 THEN Z=1:Y=Y+1 

RETURN 

REM HKEKHKKKEKKHKSKKKKKHKRKHKEHRESE E 
REM CHECK BUDGET DEFICIT 

IF BD>-1000 THEN RETURN 

_GAME=1 

FLAG=1 

RETURN 

REM HSEKHKHKKHKKHEKHHHKHHKBHEEE HEEB 
REM CHECK STANDARD OF LIVING 

IF Y<.75 THEN RETURN 

IF INT((2*((RGDP/AGDP) #100)-100)/3)> 
THEN RETURN ; 
GAME=1 

FLAG=2 

RETURN 

REM KHKKEHKKKKKEKHKHKKSKHRHRHKKRHRE EF 
REM CHECK INFLATION RATE 

IF IP<15 THEN RETURN 

GAME=1 

FLAG=3 

RETURN 

REM TRE ERE EEE RREE REESE SEER EERE SY 
REM CHECK UNEMPLOYMENT 

IF INT(U®100/P)<15 THEN RETURN 
GAME=1 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
-15 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
£80 


PRIME MINISTER HARTNELL, 
GOVERNMENT'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMPLOYMENT 

AMONG OTHER THINGS... 


YOUR 


THE LACK OF CONFIDENCE IN YOUR 
GOVERNMENT IS SO BAD THERE ARE 

CALLS FOR YOU TO RESIGN...YOU 

DECIDE TO CALL FOR AN ELECTION 

AND THE OPPOSITION WINS... 

YOU WERE PRIME MINISTER FOR 1.75 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 5638 

THE UNEMPLOYMENT RATE BECAME 15.8 4 
AND THE INFLATION RATE BECAME 18.2 4% 
STANDARD OF LIVING CHANGED BY 43 4% 
AND THE BUDGET SURPLUS/DEFICIT 

WAS $M-22.9 
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890 FLAG=4 

900 RETURN 

910 REM ## SF FSFE EHRREH TERETE RHE RE 

920 REM END OF THE GAME 

930 PRINT "PRIME MINISTER ";A$;", YOUR" 
940 PRINT "GOVERNMENT'S POOR ECONOMIC" 
950 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE® 

960 IF FLAG=1 THEN PRINT "BUDGET DEFICIT 
" 


970 IF FLAG=2 THEN PRINT "DROP IN THE ST 
ANDARD OF LIVING" 
980 IF FLAG=3 THEN PRINT "RISE IN THE IN 
FLATION RATE" 
990 IF FLAG=4 THEN PRINT "RISE IN UNEMPL 
OYMENT" 
PRINT AMONG OTHER THINGS. 
PRINT 
" 


PRINT "THE LACK OF CONFIDENCE IN YO 
PRINT "GOVERNMENT IS SO BAD THERE A 
PRINT "CALLS FOR YOU TO RESIGN...YO 
PRINT "DECIDE TO CALL FOR AN ELECTI 


PRINT "AND THE OPPOSITION WINS..." 
FOR H=1 TO 1000:NEXT H 


PRINT "YOU WERE PRIME MINISTER FOR" 
Y¥+(Z®.25) "YEARS" 
1100 PRINT "DURING YOUR TERM OF OFFICE, 
THE® 
1110 PRINT "POPULATION ROSE BY"P-3*#ML 
1120 PRINT "THE UNEMPLOYMENT RATE BECAME 
"INT(U®1000/P)/10"%" 
1130 PRINT "AND THE INFLATION RATE BECAM 
E"INT(10®IP)/10"%" 
1140 PRINT "STANDARD OF LIVING CHANGED B 
Y"INT((2#((RGDP/AGDP)#*100)-100)/3)"%" 

PRINT "AND THE BUDGET SURPLUS/DEFIC 

WAS $M"INT(10*BD)/10 

END 

REM HESKKKKFKKFKSKKKKKKKFKKKRERS HH 

REM INITIALIZATION 

CLS 

RANDOMIZE 

CLS 

ML=1000*1000 

P=3*ML:REM POPULATION 

U=P/10:REM UNEMPLOYMENT 


STARTLING SIMULATIONS 


IV=236:REM INVESTMENT 

GE=118:REM GOVERNMENT EXPENDITURE 
GU=0:REM COST OF UNEMPLOYMENT 
GI=0:REM INCOME FROM TAXES 
WN=100:REM NEW WAGES 

WO=100:REM OLD WAGES 

IP=5:REM INFLATION PERCENT 
GDP=440:REM GROSS DOMESTIC PRODUCT 
AGDP=440:REM BASE YEAR GDP 
RGDP=440:REM REAL GDP 

CN=354:REM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 
Z=1:GAME=0:FLAG=0 

Y=0:REM YEAR 

PRINT "ENTER YOUR LAST NAME" 
INPUT A$ 

RETURN 


Notes and Ideas — 











KNOW THYSELF 


The Doctor is In | 


You probably know about the famous 
ELIZA program, which imitates the action 
of a particularly dumb psychiatrist. Now 
you can sample it in action, with our pro- 
gram DOCTOR. This is the third version of 
ELIZA I’ve written, and — as far as I can 
ascertain — is more comprehensive than 
any other published version of the pro- 
gram. 

Here's a sample conversation with the 
Doctor: 
THE DOCTOR ISIN... PLEASE STAND BY 


WELCOME TO ANOTHER SESSION WITH 
THE DOCTOR 


HELLO... 
>? HI THERE DOC 


HI TO YOU ... RELAX NOW, AND LET'S 
TALK ABOUT YOUR SITUATION 


>? I HAVE A SERIOUS PROBLEM 


HOW CAN | HELP YOU WITH A SERIOUS 
PROBLEM 


>? IT IS TO DO WITH MY MAD TEACHER 


ARE YOU CERTAIN THAT IT’S TO DO 
WITH YOUR MAD TEACHER 


>? YES 1 AM VERY CERTAIN 
YOU'RE PRETTY POSITIVE 


>? IT COMES FROM WRESTLING WITH IT 
DAY AND NIGHT 


EARLIER YOU MENTIONED YOUR MAD 
TEACHER TELL ME MORE ABOUT THAT 


>? IT STARTED WHEN I WAS TEN YEARS 
OLD 


THAT'S VERY INTERESTING 
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REM DOCTOR 

REM (C) TIM HARTNELL, 1986 
REM INTERFACE PUBLICATIONS 
GOSUB 1160:REM INITIALISE 
PRINT: PRINT " 


PRINT ">";s:s INPUT X$ 

IF X$="" THEN END: REM QUIT BY JUST PR 
ESSING 'RETURN! 
80 PRINT 
90 IF X$=Z$ THEN PRINT "PLEASE DON'T REP 
EAT YOURSELF":GOTO 50 
100 Z$=X$ 
110 IF LEFT$(X$,7)="GOODBYE" THEN PRINT 
"OK, SEE YOU AGAIN SOMETIME": END 
120 REM *® ‘LOOK FOR TRIGGER PHRASES AT S 
TART OF INPUT ## 
130 L=0 
140 L=L+1 
150 LN=LEN(C$(L) ) 
160 IF LEFT$(X$,LN)=C$(L) THEN 380:REM T 
RIGGER FOUND 
170 IF L<K THEN 140 
180 REM #** PROGRAM GETS HERE IF NO TRIGG 
ER PHRASE FOUND AT START OF X$ 4* 
190 REM *® NOW LOOK FOR TRIGGER WORDS WI 
THIN INPUT *# 
200 X$=" "4X$e" 8 
210 M=LEN(X$) 
220 L=0 
230 Lz=L+1 
240 IF L=M=-1 THEN 820:REM NO TRIGGER FOU 
ND 
250 IF MID$(X$,L,1)=" " THEN 270 
260 GOTO 230 
270 X=L+1 
280 Y=0 
290 Y=Y+1 
300 IF MID$(X$,(X+Y),1)=" " THEN Q$=MID$ 
(X$,X,Y):GOTO 320 
310 GOTO 290 
320 N=0 
330 N=N+1 
340 IF Q$=C$(N) THEN 730:REM TRIGGER WOR 
D FOUND 
350 IF N<K THEN 330 
360 GOTO 230 
370 REM #HKKHHKKKKHKKHKKKEKRE EES 
380 REM TRIGGER PHRASE FOUND AT START. OF 
INPUT 
390 T=INT( RND(1)#3)+4+1 
400 IF T=1 THEN G$=D$(L) 
410 IF T=2 THEN G$=E$(L) 











>? | WANT SOME ASSISTANCE WITH MY 
FEARS 


WHAT WOULD IT MEAN TO YOU IF YOU 
GOT SOME ASSISTANCE WITH YOUR 
FEARS 

>? 1 THINK IT WOULD MAKE ME BRAVER 


DO YOU DOUBT IT WOULD MAKE YOU 
BRAVER 


>? | ALWAYS WANT TO RUN AWAY 
ISN'T ‘ALWAYS’ A LITTLE STRONG? 
>? | GUESS IT MIGHT BE 


WHY DON'T WE GO BACK AND DISCUSS 
YOUR FEARS A LITTLE MORE? 


KNOW THYSELF 


420 IF T=3 THEN G$::F$(L) 
430 REM **® CHECK TO SEE IF ENDS IN ASTER 
ISK, IF SO NEEDS PART OF INPUT ADDED 
440 FLAG=0 
450 IF RIGHT$(G$,1)="®" THEN FLAG=1:G$=L 
EFT$(G$, (LEN(G$)-1) ) 
460 PRINT G$;" "; 
470 IF FLAG=0 THEN 50:REM NO NEED FOR AD 
DED MATERIAL 
480 REM ** NOW USE BALANCE OF INPUT ## 
KOO X$=" "+MID$(X$,LN+2,LEN(X$))4+" ® 
500 REM #KKKKFKKSKEKKKRKKEKKES SE 
510 REM *®# CONJUGATION CHANGES ## 
520 REM ®* ALSO LOOK FOR 'MY! TO TRIGGER 
"MYFLAG'(K$) ## 
530 LN=LEN(X$) 
540 M=0 
550 M=M+1 
560 IF M=LN THEN 50 
570 IF MID$(X$,M,1)=" " THEN 590 
580 GOTO 550 
590 X=M+1 
600 Y=0 
610 Y=Y+1 
620 IF MID$(X$,(X+Y),1)=" " THEN Q$=MID$ 
(X$,X,Y):GOTO 650 
630 IF X+Y¥>250 THEN 550 
640 GOTO 610 
650 MN=0 
660 MN=MN+1 
670 IF Q$="MY" AND K$="" THEN K$=MID$(X$ 
,X+3,LEN(X$)-4) :K$=LEFT$(K$, LEN(K$)-1) 
680 IF Q$=A$(MN) THEN PRINT B$(MN);" "33 
GOTO 550 
690 IF MN<KK THEN 660 
700 PRINT Q$;" "; 
710 GOTO. 550 
720 REM RKKKFKKHKKKRRKRKK KEE 
730 REM TRIGGER WORDS FOUND 
740 T=INT(RND(1)#3)+1 
750 Q$="" 
760 IF T=1 THEN Q$=D$(N) 
770 IF T=2 THEN Q$=E$(N) 
780 IF T=3 THEN Q$=F$(N) 
790 IF RIGHT$(Q$,1)<>"#" THEN PRINT Q$:G 
OTO 50 
800 REM *®** FALLS THROUGH TO NEXT SECTION 
IF TRIGGER WORD JUDGED UNSUITABLE #** 
810 REM SKKFKKKKKHKEKKKRKKRARRAAAE 
820 REM RANDOM REPLIES/NO TRIGGER 
830 IF K$<>"" THEN 1030:REM 'MYFLAG' IS 
NOT EMPTY, SO GO THERE 
T=INT(RND(1)#8)+1 > 
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KNOW THYSELF 





850 ON T GOSUB 870,890,910,930,950,970,9 
90,1010 

860 GOTO 50 

870 PRINT "WHAT DOES THAT SUGGEST TO YOU 
Qn 

880 RETURN 

890 PRINT "I'M NOT SURE I UNDERSTAND THA 
T FULLY" 

900 RETURN 

910 PRINT "PLEASE ELABORATE ON THAT®" 

920 RETURN 
930 PRINT 
940 RETURN 
950 PRINT "WELL...PLEASE CONTINUE..." 
960 RETURN 

970 PRINT "WHY?" 

980 RETURN 

990 PRINT "AND THEN?" 

1000 RETURN 

1010 PRINT "I SEE...PLEASE TELL ME MORE 
ON THAT*® 

1020 RETURN 

1030 REM ®* USE 'MYFLAG! ## 

1040 T=INT(RND(1)*8)+1 

1050 IF T=1 THEN PRINT "TELL ME MORE ABO 
UT YOUR ";K$ 

1060 IF T=2 THEN PRINT "EARLIER YOU MENT 
IONED YOUR ";K$:PRINT "TELL ME A BIT MOR 
E ABOUT THAT" 

1070 IF T=3 THEN PRINT "DOES THAT HAVE A 
NYTHING TO DO":PRINT "WITH YOUR ";K$;"2" 


"THAT'S VERY INTERESTING" 


1080 IF T=4 THEN PRINT "IS THERE A LINK 

THERE WITH®:PRINT "YOUR ";K$;"?2" 

1090 IF T=5 THEN PRINT "WHY DON'T WE GO 

BACK AND DISCUSS":PRINT "YOUR ";K$;" AL 
ITTLE MORE?" 

1100 IF T=6 THEN PRINT "DOES ANY CONNECT 
ION BETWEEN THAT AND®":PRINT "YOUR ";K$;" 
SUGGEST ITSELF?" . 

1110 IF T=7 THEN PRINT "WOULD YOU PREFER 
TO TALK":PRINT "ABOUT YOUR ";K$;"2" 
1120 IF T=8 THEN PRINT "I THINK PERHAPS 

WORRIES ABOUT YOUR": PRINT K$;" ARE BOTHE 
RING You" 

1130 IF RND(1)>.7 THEN K$="" 

1140 GOTO 50 

1150 REM [EERE RERER EEE SE SE | 

1160 REM INITIALISATION 

1170 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 

1180 CLS 

1190 DEFINT A-Z 

1200 DIM A$(14),B$(14):REM CONJUGATIONS 
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1210 DIM C$(45),D$(45) , E$(45),F$(45):REM 
TRIGGERS WORDS AND REPLIES 

1220 Z$="":REM TO STOP REPETITIONS 

1230 K$="":REM "MYFLAG! 

1240 PRINT:PRINT 

1250 PRINT "THE DOCTOR IS IN...PLEASE ST 
AND BY® 

1260 KK=0 

1270 KK=KK+1 

1280 READ A$(KK),B$(KK) 

1290 IF B$(KK)="*®" THEN 1310 

1300 GOTO 1270 

1310 K=0 

1320 K=K+1 

1330 READ C$(K),D$(K),E$(K),F$(K) 

1340 IF F$(K)="®" THEN 1360 

1350 GOTO 1320 

1360 CLS 

1370 PRINT "WELCOME TO ANOTHER SESSION" 

1380 PRINT "WITH THE DOCTOR....." 

1390 PRINT 

1400 PRINT 

1410 RETURN 
1420 REM #888 

1430 REM DATA 

1440 REM *# CONJUGATIONS ## 

1450 DATA AM,ARE,WAS,WERE,1I,YOU,MY, YOUR 

1460 DATA "YOU'VE", "I'VE", YOUR,MY,ARE, AM 


"HELLO..." 


1470 DATA "YOU'RE","I AM", YOURS, MINE, YOU 
, ME, ME, YOU,*, # 


1480 REM ® TRIGGER WORDS/REPLY PHRASES # 
1490 DATA "I NEED" 

1500 DATA "WHY DO YOU NEED#*" 

1510 DATA "WOULD IT REALLY BE HELPFUL IF 
YOU GoT#* 
1520 DATA "ARE YOU SURE YOU NEED#@*" 

1530 DATA "WHY DON'T YOU" 

1540 DATA "DO YOU REALLY THINK I DON'T#&" 
1550 DATA "PERHAPS EVENTUALLY I WILL#®" 
1560 DATA "DO YOU REALLY WANT ME TO#®" 
1570 DATA "WHY CAN'T I* 

1580 DATA "DO YOU THINK YOU SHOULD BE AB 


LE To#F 

DATA "WHY CAN'T You*er 

1600 DATA "PERHAPS YOU HAVEN'T TRIED HAR 
D ENOUGH® 
1610 DATA 
1620 DATA 
THER I AM 
1630 DATA 


"ARE YOu" 

"WHY ARE YOU INTERESTED IN WHE 
OR NOT#*# 

"WOULD YOU PREFER IT IF I WERE 
NOT#*" 








Doctor is In 


1640 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1650 
1660 
1670 
1680 
1690 
1700 
U 
1710 DATA 
1720 DATA 
NORMAL 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 
1780 DATA 
You 
1790 
1800 
E IF 
1810 


DATA 
DATA 


DATA 
1820 DATA 
1830 DATA 
ELP YOU?" 
1840 DATA 
1850 DATA 
‘1860 DATA 
1870 DATA 
AT 

1880 
NG?" 
1890 
1900 


DATA 


DATA 
DATA 


"PERHAPS YOU SOMETIMES DREAM I 
AM#" 

"I CAN'T®" 

"HOW DO YOU KNOW YOU CAN'T#" 

"HAVE YOU TRIED?" . 
"PERHAPS, NOW, YOU CAN®" 

"I AM" . 

"DID YOU COME TO ME BECAUSE YO 
ARE#" 

"HOW LONG HAVE YOU BEEN* 

"DO YOU THINK IT'S ABSOLUTELY 
TO BE®" 

ny 9Mrf 

"DO YOU ENJOY BEING#®" 

"WHY TELL ME YOU'RE®" 

"WHY ARE yous" 

"IT WANT" 

"WHAT WOULD IT MEAN TO YOU IF 
GoT#*" 

"WHY DO YOU WANT#" 

"WHAT WOULD IT ADD TO YOUR LIF 
YoU GoT#*" 

"WHAT" 

"WHY DO YOU ASK?" 

"HOW WOULD AN ANSWER TO THAT H 


"WHAT DO YOU THINK?" 
"How" : 

"HOW WOULD YOU SOLVE THAT?" 
"IT WOULD BE BEST TO ANSWER TH 
FOR YOURSELF" 

"WHAT IS IT YOU'RE REALLY ASKI 


"WHO" 


"DO YOU OFTEN THINK ABOUT SUCH 


QUESTIONS" 


1910 DATA 


"WHAT ANSWER WOULD PUT YOUR MI 


ND AT REST" 


1920 DATA 
1930 DATA 
1940 DATA 
nN" 

1950 DATA 
ERE#*" 
1960 DATA 
I TOLD 
1970 DATA 
1980 DATA 
1990 DATA 
SED HERE" 
2000 DATA 
ING AT 
2010 DATA 


"WHO DO YOU THINK*" 
"WHERE" 
"THAT'S A PRETTY SILLY QUESTIO 


"DO YOU REALLY NEED TO KNOW WH 


"WHAT WOULD IT MEAN TO YOU IF 
YOU WHERE*®* 

"WHEN" 

"HOW SHOULD I KNOW WHEN#®" 

"THE TIME SHOULD NOT BE DISCUS 


"THINGS HAVE A HABIT OF HAPPEN 
MORE OR LESS THE RIGHT TIME" 
"WHY" 


KNOW THYSELF 


2020. 
SON 
2030 
OULD 
2040 
yen 
2050 
2060 
2070 
ND?" 
2080 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


2090 
2100 
O YOU 
2110 DATA 
APOLOGY 
2120 DATA 
N YOU 
2130 

2140 

2150 

OULD 

2160 

WARD 

2170 

2180 

U HERE 
2190 DATA 
Y...WE'VE 
2200 DATA 
T'S TALK 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
OU SHOW 
2250 DATA 
2260 DATA 


"WHY DON'T YOU TELL ME THE REA. 
wHye" | 
"WHAT HAVE YOU TOLD ME WHICH W 


ALLOW ME TO TELL YOU WHY*" 


"DO YOU REALLY NEED TO KNOW WH 


"BECAUSE" 
"IS THAT THE REAL REASON?" 
"WHAT OTHER REASONS COME TO MI 


"WHAT ELSE DOES THAT EXPLAIN?" 


"SORRY" 

"IN WHAT OTHER CIRCUMSTANCES D 
APOLOGIZE?" : 

"THERE ARE MANY TIMES WHEN NO 
IS NEEDED" 

"WHAT FEELINGS DO YOU HAVE WHE 
APOLOGIZE?" 

"HELLO" 

"HELLO...IT'*S GOOD TO SEE You" 
"HELLO TO YOU...I'M GLAD YoU C 
DROP BY TODAY" . 
"HOW ARE YOU...1I1'M LOOKING FOR 

ANOTHER CHAT WITH YOU" 
Hye 
"HI THERE...I'M GLAD TO SEE YO 
TODAY" 
"HI. I'M GLAD YOU'VE DROPPED B 
GOT LOTS OF TIME TO CHAT" 
"HI TO YOU...RELAX NOW, AND LE 
ABOUT YOUR SITUATICN" 
"MAYBE" 
"YOU SEEM A LITTLE HESITANT" 
"THAT'S PRETTY INDECISIVE" 
"IN WHAT OTHER SITUATIONS DO Y 
SUCH A TENTATIVE APPROACH?" 
"NON 
"WHY ARE YOU BEING SO NEGATIVE 


ABOUT IT?" 


2270 DATA 


"ARE YOU SAYING THAT JUST TO B 


E NEGATIVE" 


2280 DATA 
DOES 

2290 DATA 
2300 DATA 
MPLE®. 
2310 DATA 
G2" 
2320 
2330 
2340 
2350 


DATA 
DATA 
DATA 
DATA 


"THAT'S PRETTY FORCEFUL. 
IT SUGGEST TO YoU?" 

"ALWAYS" 

"PLEASE GIVE ME A SPECIFIC EXA 


WHAT 


"ISN'T 'ALWAYS' A LITTLE STRON 


"WHEN?" 

"I THINK" 

"DO YOU DOUBT#" 

"DO YOU REALLY THINK SO?" D> 
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DATA 
DATA 
DATA 


2360 
2370 
2380 
CT 
2390 DATA 
FRIEND?" 
2400 DATA 
R 
2410 DATA 
2420 DATA 
REACTIONS 
2430 DATA 
BOUT 


2440 DATA 


MPOSE 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


"BUT YOU ARE NOT SURE®" 
"FRIEND" 

"WHY DO- YOU BRING UP THE SUBJE 
OF FRIENDS?" 

"WHAT IS YOUR BEST MEMORY OF A 


"PLEASE TELL ME MORE ABOUT YOU 
FRIENDSHIP..." 

"FRIENDS" 

"IN WHAT WAY DO YOUR FRIENDS! 
BOTHER You?" 

"WHAT MADE YOU START TO TALK A 
FRIENDS JUST NOW?" 

"IN WHAT WAY DO YOUR FRIENDS I 
ON YOU?" 

"YES" 

"WHAT LIES BEHIND YOUR CERTAIN 


"YOU'RE PRETTY POSITIVE" 
"YOU SEEM VERY CERTAIN ABOUT I 


"COMPUTER" 


"WHAT FEELINGS DO YOU GET, SIT 


THERE TALKING TO ME LIKE THIS?" 


DATA 


"ARE YOU THINKING ABOUT ME IN 


PARTICULAR" 


2520 DATA 
RESTS 
2530 
2540 
2550 
ran 
2560 
2570 
2580 
D YOU 
2590 
2600 
IF I 
2610 
2620 
n 
2630 
2640 
ABLE 
2650 
2660 
2670 
2680 
2690 
2700 
2710 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


"WHAT ASPECT OF COMPUTERS INTE 
YOU THE MOST?" 

"IS IT" ; 

"DO YOU THINK IT IS#*" 

"IN WHAT CIRCUMSTANCES WOULD I 


"IT COULD WELL BE THAT#®® 

"IT Is" 

"WHAT DEGREE OF CERTAINTY WOUL 
PLACE ON IT BEING#®" 

"ARE YOU CERTAIN THAT IT'S#" 
"WHAT EMOTIONS WOULD YOU FEEL 
YOU THAT IT PROBABLY ISN!T#" 
"CAN YOU" 

"WHAT MAKES YOU THINK I CAN'T# 


"DON'T YOU THINK THAT I CAN#* 
"PERHAPS YOU WOULD LIKE TO BE 


"CAN I" 

"PERHAPS YOU DON'T WANT TO#" 

"DO YOU WANT TO BE ABLE TO#" 
"I DOUBT IT" 

"YOU ARE" 

"WHY DO YOU THINK I AM#*" 

"DOES IT PLEASE YOU TO BELIEVE 
I AM&" 


KNOW THYSELF 


2720 DATA 
" 

DATA 
DATA 
DATA 


2730 
2740 
2750 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2760 
2770 
2780 
2790 
2800 
2810 
2820 
NGS" 
2830 
2840 
2850 DATA 
2860 DATA 
A BIT" 

2070 DATA 


DATA 
DATA 


2880 
s 

2890 DATA 
2900 DATA 
2910 DATA 
AVE®" 
2920 
2930 
2940 


DATA 


DATA 
DATA 
DATA 


2950 DATA 


2960 DATA 
LpD#@" 
2970 
2980 
2990 
3000 
3010 
3020 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
3030 DATA 
3040 DATA 
T YOUR*®®" 
3050 DATA 
3060 DATA 
NOT TO 
3070 DATA 


"PERHAPS YOU WOULD LIKE TO BE* 


"YOU'RE" 

"WHY DO YOU THINK I AM#" 

"DOES IT PLEASE YOU TO BELIEVE 
I AM#" 

"WHY DO YOU SAY I'M#" 

"I DON'T" 

"DON'T YOU REALLY#". 

"WHY DON'T you#" 

"DO YOU WANT TO BE ABLE TO#" 

"IT FEEL" 

"TELL ME MORE ABOUT SUCH FEELI 


"DO YOU OFTEN FEEL#* 

"DO YOU ENJOY FEELING#*" 
"FEEL" 

"LET'S EXPLORE THAT STATEMENT 


"DO YOU OFTEN FEEL LIKE THAT?" 


"WHAT EMOTIONS DO SUCH FEELING 
STIR UP IN YOU?" 

"I HAVE" 

"WHY TELL ME THAT YOU'VE#*" 
"IT'S OBVIOUS TO ME THAT YOU H 


"HOW CAN I HELP YOU WITH#®" 

"I WOULD" 

"COULD YOU EXPLAIN WHY YOU 
WOULD#®" 

"WHO ELSE HAVE YOU TOLD YOU 
WOULD®" 

"HOW SURE ARE YOU THAT YOU WOU 


"IS THERE" 

"OF COURSE THERE IS#" 

"IT'S LIKELY THAT THERE IS**" 
"WOULD YOU LIKE THERE TO BE#" 
My 

"YOURS" 

"I SEE, YOUR®" 

"WHAT DOES IT MEAN TO YOU, THA 
"yout 

"THIS SESSION IS TO HELP YOU.. 
DISCUSS MEI" 

"WHAT PROMPTED YOU TO SAY THAT 


ABOUT ME?" 


3080 DATA 
ALL THIS 
3090 DATA 


"REMEMBER, I'M TAKING NOTES ON 


TO SOLVE YOUR SITUATION" 
,7,e,# 














KNOW THYSELF 


The Celtic Tarot | 


Once you've sorted yourself out with the 10 REM THE CELTIC TAROT 





help of the Doctor, you can use our next 20 REM (C) TIM HARTNELL 
program, The Celtic Tarot, to see what the 30 REM INTERFACE PUBLICATIONS, 1986 
future has in store. 40 GOSUB 400:REM INITIALISE 
There is no need for you to learn what 50 GOSUB 270:REM ENTER QUESTION 
each Tarot card signifies in order to use 60 GOSUB 550 
this program. Of the many ways of using 70 PRINT R$;"?": PRINT 
and interpreting the Tarot, I've chosen the 80 PRINT TAB(16);"... LET ME SEE..." 
method called ‘The Celtic Cross’. Accord- 90 GOSUB 550:GOSUB 550 
ing to the book Predicting the Future, by 100 REM S#eeee# 
the Diagram Group, the “Celtic Cross is 110 REM PREDICT 


probably the most useful and versatile of 120 FOR J=1 TO 10 
all tarot spreads”. 130 GOSUB 530:REM DELAY/SPACE OUT 
To use it, you just enter a question, 1HO PRINT "S#SRSSRHFRHESEREERHER ER TERE ED 


such as WOULD IT BE WISE TO CON- #eRRR ERED 
SIDER BUYING A NEW WIND SURFER, 150 PRINT A$(J) 


and the program will deal some cards, and 160 GOSUB 550 
Spanien - them, in light of your ques- 170 X2INT(RND(1)*#22):IF H(X)=1 THEN 170 


180 H(X)=1 
oe 190 PRINT TAB(13);"----------- " 


200 PRINT B$(X) 
210 PRINT "#8 FREER RERERRRRER ERE RE KE RE 


H#KHKHKHRK AN 


220 GOSUB 550 
230 NEXT J 
240 GOSUB 530 
250 END 
260 REM SH RRRHRRKERAE SB 
270 REM ENTER QUESTION 
280 GOSUB 530 
290 PRINT "ENTER YOUR QUESTION OR CONCER 
N NOW" 
300 PRINT "AND I WILL USE THE CELTIC CRO 
SS SPREAD®" . 
310 PRINT "IN AN ATTEMPT TO GIVE SOME GU 
IDANCE,.." 
320 GOSUB 530 
330 INPUT R$ 
340 GOSUB 530 | 
350 PRINT TAB(4);"PLEASE STAND BY...." 
360 GOSUB 550 
370 CLS 
380 RETURN 
390 REM ##RRFFRERE 
400 REM INITIALISE 

ENTER YOUR QUESTION OR CONCERN NOW 410 CLS 

IN AN ATTEMPT TO GIVE SOME GUIDANCE... 430 DIM A$(10),B$(21),H(21) 


HO FOR J=1 TC 10 


450 READ A$(J) 
? WOULD IT BE WISE TO ATTEMPT TO MAKE A | 60 NEXT J 


MILLION DOLLARS DURING 1987 470 FOR Js0 TO 21 
480 H(J)=0 > 
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WOULD IT BE WISE TO ATTEMPT TO MAKE A 
MILLION DOLLARS DURING 19877 


LET ME SEE... 


HHKHHKKFAHEKARHHKEHAHEKAHEHRRERRHER EEE 
THIS IS WHERE YOU STAND NOW... 


THE EMPRESS: 
FORTUNE... 
HHTAHHHHEHEHAHFKEHAHHHEREKEAHHEREEEE EE 
THIS CARD IS FOR THE NEAR FUTURE... 


A STABLE SITUATION, GOOD 


KNOW THYSELF 


THIS IS SOMETHING IN THE PAST THAT IS 
RELEVANT TO YOUR QUESTION... 


THE SUN: A GOAL WITHIN REACH, 


AFTER DARKNESS... 
HHHKHHHAKHHRHHHHEHHHHHHERHEERERE RARE E ED 8 


LIGHT 


730 DATA "THE HIGH PRIESTESS: WISDOM, A 
PROBLEM WILL BE SIMPLIFIED..." 

740 DATA "THE EMPRESS: A STABLE SITUATIO 
N, GOOD FORTUNE..." 

750 DATA "THE EMPEROR: GOALS WILL BE REA 





THE TOWER: 


UNFORTUNATE INDICATIONS, = 


REGROWTH CAN BE EXPECTED.. 
SRESHRFERAHHAHHTHRERTERRERRERER EERE EEE 


490 
500 
510 
520 
530 
540 
550 


READ B$(J) 

NEXT J 

RETURN 

REM #HRRHRRERR HERE E 
REM DELAY/SPACE OUT 
PRINT: PRINT 

FOR Z=1 TO 1000:NEXT Z 


RETURN 
REM ## RHR RRR EER EE 


REM INTRODUCTORY DATA 


DATA 


DATA 


620 DATA 
THAT IS 
630 DATA 


"THIS IS WHERE YOU STAND NOW... 
"THIS CARD IS FOR THE NEAR FUTU 
"AND THIS ONE IS WHAT YOU MIGHT 
"THIS IS SOMETHING IN THE PAST 


RELEVANT TO YOUR QUESTION..." 
"THIS CARD RELATES TO A MORE RE 


CENT PAST EVENT..." 


640 DATA 
POSITION 
650 DATA 


"NOW, THIS CARD INDICATES YOUR 
IN SIX MONTHS OR SO..." 
"IN YOUR LIFE OR WORK, THIS MOS 


T CLOSELY INFLUENCES YOU..." 


660 DATA 
‘FLUENCES 
670 DATA 
CTED IN 
680 DATA 
S CARD 


"THIS CARD REPRESENTS SOCIAL IN 
ON YOUR QUERY..." 

"YOUR HOPES AND FEARS ARE REFLE 
THIS CARD..." 

"AND, FROM THESE, IN REPLY, THI 
POINTS TOWARDS AN ANSWER..." 


690 REM #8888 8888 
700 REM CARD DATA 


710 DATA 


"THE FOOL: NEW BEGINNINGS AND C 


HALLENGES" 


720 DATA 


40 


"THE MAGICIAN: OUTWARD PROGRESS 
DECISIONS TO BE MADE..." 


CHED, 
760 DATA 
ICE, 

770 DATA 
N LIKELY, 
780 DATA 
OUR LIFE 
790 DATA 
ED, 

800 DATA 
ORITIES 
810 DATA 


’ 

820 DATA 
WILL 
830 DATA 
VALUES, 
840 DATA 
ME FROM 
850 DATA 
DERATION 
860 DATA 
N TOO 
870 DATA 
IONS, 
880 DATA 


890 DATA 
HER THAN 
900 DATA 
LIGHT 

910 DATA 


BEWARE OF RUTHLESSNESS..." 
"THE HIGH PRIEST: LISTEN TO ADV 
UNDERSTANDING LIKELY..." . 
"THE LOVERS: A POSITIVE DECISIO 
RELATIONSHIPS PROSPER..." 

"THE CHARIOT: A GOOD STAGE IN Y 
ATTAINED, TRAVEL LIKELY..." 
"JUSTICE: BALANCE WILL BE REACH 
DUE REWARD LIKELY..." 

"THE HERMIT: REVALUATION OF PRI 
INDICATED, INNER GROWTH" 
"WHEEL OF FORTUNE: GROWTH, 
DECISIONS TO BE MADE..." 
"STRENGTH: YOUR INNER QUALITIES 
ENSURE YOU MEET THE TEST..." 
"HANGED MAN: CAST AWAY MATERIAL 

SACRIFICE REWARDED..." 
"DEATH: FRESH AWARENESS WILL CO 
TEMPORARY SETBACKS..." 
"ANGEL OF TIME (TEMPERANCE): 
DEMANDED; WISE CHOICE SEEN" 
"THE DEVIL: BE WARY OF GIVING I 
EASILY TO YOUR WHIMS" 
"THE TOWER: UNFORTUNATE INDICAT 
REGROWTH CAN BE EXPECTED..." 
"THE STAR: VERY POSITIVE, FRESH 
DEVELOPMENTS SEEN..." 
"THE MOON: TRUST YOUR HEART RAT 
YOUR HEAD..." 
"THE SUN: A GOAL WITHIN REACH, 
AFTER DARKNESS..." 
"JUDGEMENT: A PERIOD OF FRESH B 


LUCK 


MO 


EGINNINGS AND ASSESSING VALUES..." 


920 DATA 
FICULT 


"THE WORLD: 
TASK, 


COMPLETION OF A DIF 
ATTAINMENT OF A GOAL" 











KNOW THYSELF 


The Biorhythm Calculator 


What does 1987 hold in store for you? 
While you may not, perhaps, wish to rely 
to much on the insights gained from our 
Celtic Tarot program, the ‘science’ of bior- 
hythms may tell you much more. 

In this program; written by lan Hutt, you 
just enter your date of birth, the current 
month and year, and the program cleverly 
charts your physical, mental and emo- 
tional peaks and troughs for the coming 
month. Note that in lines 210 and 220, you 
may need to change the 80-and 24, into 
the number of characters across on the 
screen (the ‘line length’) and the number 
of lines the screen can hold (the ‘page 
length’). This ensures that the printed 
chart will fit properly on your screen. 


PLEASE ENTER YOUR DATE OF BIRTH: 
MONTH (1 to 12)? 3 
DAY (1 to 31)? 17 
YEAR (AS 1988)? 63 

PLEASE ENTER THE CURRENT MONTH, YEAR: 


MONTH (1 TO 12)? 4 
YEAR (AS 1988)? 87 


PLEASE STAND BY WHILE I WORK IT OUT... 


= PHYSICAL ®* MENTAL FMOTIONAL 


# HEHE HERE € 
## ar 


tetteeteee 


++ # 


REM THE BIORHYTHM CALCULATOR 
REM By Ian Hutt 
REM (c) Interface Publications, 1986 
REM ###eeeeeee 
GOSUB 160:REM INITIALISE 
GOSUB 360:REM ENTER DETAILS 
GOSUB 490:REM CALCULATE 
GOSUB 800:REM PLOT 
GOSUB 700:REM ASK AGAIN 
REM S888 88888 R RRR EEE 
IF A$="Y" THEN RUN 
PRINT: PRINT "OK, BYE..." 
END 
REM ###eee88 88 
REM INITIALISE 
CLS: PRINT: PRINT 
PRINT TAB( 14); "BIORHYTHMS" 
PRINT: PRINT: PRINT TAB(11);"PLEASE ST 
BY..." 
REM * PUT THE VALUES OF YOUR OWN * 


REM * SYSTEM IN THE NEXT TWO LINES #* 


LL=80:REM LINE LENGTH 
PL=24:REM PAGE LENGTH 
PL=PL-2 

SX=LL/255 

SY=PL/170 

DIM S$(LL, PL) 

FOR X=1 TO LL 

FOR Y=1 TO PL 

S$(X,Y)=" ":REM ONE SPACE 


# ++ 
#8 % +++ ae 
HEE HSB L 44 y 


ITIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIVIIIIIIIIIIIIIIIIIIINIIIIIIIIIIIII: 
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KNOW THYSELF —— 


The Biorhythm Calculator _ 


300 NEXT Y FOR R=1 TO 3 
310 NEXT X READ U,C$ 
320 RESTORE L=2*3.141598(T-(INT(T/U)#U))/U 
330 RETURN 600 K=2#3.14159#( 33-U) #. 3 
340 REM ###RHRRHRE HES 610 PRINT L;K; 
350 REM ENTER DETAILS 620 FOR A=L TO K+L+(2#3.14159) STEP .1 
360 CLS:PRINT: PRINT 630 X=SX#((A-L) #(35~28+U) ) 
370 PRINT "PLEASE ENTER YOUR DATE OF BIR | 640 Y=SY®(90+SIN(A) #60) 
TH: ":PRINT 650 IF X>0 AND Y>O AND X<eLL AND Y<=PL T 
PRINT TAB(5);"MONTH (1 to 12)"3;:INPU | HEN S$(X,Y)=C$ 
660 NEXT A 
IF B<1 OR B>12 THEN 380 670 NEXT R 
PRINT TAB(5);"DAY (1 to 31)%;:INPU | 680 RETURN 
690 REM HSSKSREEE 
IF A<1 OR A>31 THEN 400 700 REM ASK AGAIN 
PRINT TAB(5);"YEAR (AS 1988)";:INPU | 710 REM *® PRESS A KEY FOR END * 
720 IF INKEY$<>"" THEN 720 
PRINT: PRINT "PLEASE ENTER THE CURREN | 730 IF INKEY$="" THEN 730 
T MONTH, YEAR: ":PRINT 740 PRINT: PRINT "DO YOU WANT ANOTHER GO 
440 PRINT TAB(5);"MONTH (1 TO 12)"; :INPU | (Y OR N)?" 
T D 750 A$=INKEY$ 
450 IF D<1 OR D>12 THEN 440 760 IF A$<>"N" AND A$<>"Y" THEN 750 
460 PRINT TAB(5);"YEAR (AS 1988)";:INPU | 770 RETURN 
TE 780 REM S###SSKHERHEKE ST 
470 RETURN 790 REM PLOT SUBROUTINE 
480 REM ###eHRRED 800 CLS 
490 REM CALCULATE 810 PRINT "= PHYSICAL # MENTAL 
500 PRINT:PRINT TIONAL" 
510 PRINT "PLEASE STAND BY WHILE I WORK 820 FOR Y=PL TO 1 STEP -1 
IT OUT..." 830 FOR X=1 TO LL 
520 T=INT(((E-C) #365.25)+((D-B)#*30.35)-A | 840 PRINT S$(X,Y); 
) 850 NEXT X 
530 FOR R=1 TO 255 860 NEXT Y 
540 IF S$(SX#R,1)=" " THEN S$(SX#R,1)="- | 870 RETURN 
" 880 REM HH HSHHHHEH HE EEE 
550 IF ReINT(R/B)*B THEN S$(SX#R,1)="1" 890 REM DATA FOR CYCLES 
560 NEXT R 900 DATA 23,"+",28,7.",33,"8" 


Notes and Ideas — 
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ARTIFICIAL STUPIDITY 


AN ENORMOUS AMOUNT of energy is now being spent to get computers to 
behave in ways which appear stupid. Artificial Stupidity (AS) research has looked 
into many of the simple human exhibitions of stupidity, such as games playing. 
This research has produced some outstanding and important results, such as those 
toy bears which grunt back at you when you grunt at them, and computers which 

refuse to recognise the command LUST for LIST, or RUIN for RUN. 


In this section of our Program Present, we'll look at two prime examples of AS. 


Medici — Personal Checkup 





Instead of going to a doctor, you can save 10 
Medicare lots of money, and use our 20 
Medici program to see how long you are 30 
going to live. Just answer the questions, 40 
and Medici will give you an estimate of 50 
your lifespan. Note thatthe results should 60 
be taken with a pinch of salt (but not too 70 
much, because salt is bad for your blood 80 
pressure). 90 


REM MEDICI - PERSONAL CHECKUP 


REM (C) TIM HARTNELL, 1986 

REM INTERFACE PUBLICATIONS 

CLS 

GOSUB 1270 

PRINT "A = I AM BADLY OVERWEIGHT" 
PRINT "B = I AM FAIRLY OVERWEIGHT" 
PRINT "C = I AM SLIGHTLY OVERWEIGHT" 
PRINT "D - MY WEIGHT IS ABOUT RIGHT" 


100 PRINT "E - I AM THINNER THAN I SHOUL 
D BE" 

110 GOSUB 1190 

120 WEIGHT=5*(ASC(A$)-68):IF A$="E" THEN 


WEIGHT=0 


130 PRINT WEIGHT 

140 GOSUB 1270 

150 PRINT "I ENGAGE IN EXERCISE, THAT" 
160 PRINT "RAISES MY HEARTBEAT TO 120 OR 
MORE," 

170 PRINT “FOR AT LEAST THE FOLLOWING NU 

MBER" 

180 PRINT TAB(8);"OF HOURS A WEEK:" 

190 PRINT 

200 PRINT "A - LESS THAN A QUARTER® 

210 PRINT "B - MORE THAN A QUARTER, UP T 


0 


THREE~QUARTERS" Db 
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ARTIFICIAL STUPIDITY 


220 PRINT FROM THREE-QUARTERS OF AN| 600 GOSUB 1270 
HOUR UP TO ONE AND A HALF" 610 PRINT "ALCOHOL - HOW MANY DRINKS (ON 
230 PRINT FROM ONE AND A HALF TO AVERAGE) DO YOU HAVE EACH DAY?" 
TWO AND A HALF" 620 PRINT 

240 PRINT MORE THAN TWO AND A HALF | 630 PRINT - NONE" 

HOURS" 640 PRINT - LESS THAN 3" 
250 GOSUB 1190 650 PRINT "C - 3 TO 6" 
260 EXERCISE=5*#(ASC(A$)-63)-5:IF A$="A" | 660 PRINT - 7 TO 9" 

THEN EXERCISE=0 670 PRINT - MORE THAN 9" 
270 PRINT EXERCISE 680 GOSUB 1190 

280 GOSUB 1270 690 DRINK=-30 
290 PRINT "WHEN DRIVING: ":PRINT 700 IF A$="A" THEN DRINK=0 

300 PRINT "A - I HARDLY EVER WEAR A SEAT| 710 IF A$="B" THEN DRINK=1 

BELT" 720 IF Ag="C" THEN DRINK=DRINK/5 

310 PRINT "B - I WEAR A SEAT BELT AROUND | 730 IF Ag$="D" THEN DRINK=DRINK/2 

A QUARTER OF THE TIME" 740 PRINT DRINK 

320 PRINT "C - I WEAR A SEAT BELT EVERY | 750 GOSUB 1270 
SECOND JOURNEY" 760 PRINT "IN GENERAL, HOW STRESSFUL WOU 
330 PRINT "D - I WEAR A SEAT BELT FOR MO| LD YOU SAY®; 

ST, BUT NOT ALL TRIPS" 770 PRINT "YOUR LIFE HAS BEEN IN THE PAS 
340 PRINT "E - I ALWAYS WEAR A SEAT BELT | T 6 MONTHS® 

" 780 PRINT 

350 GOSUB 1190 790 PRINT EXTREMELY STRESSFUL" 

360 SEATBELT=2*(ASC(A$)-65) 800 PRINT FAIRLY STRESSFUL" 

370 PRINT SEATBELT 810 PRINT SLIGHTLY STRESSFUL" 

380 GOSUB 1270 820 PRINT NEUTRAL" 

390 PRINT "I AM CONSCIOUS OF NUTRITION A] 830 PRINT NOT STRESSFUL" 

ND TRY TO EAT HEALTHILY:" 840 GOSUB 

400 PRINT 850 STRESS=INT(2.5#(ASC(A$)-69) ) 

410 PRINT "A - ALL THE TIME" 860 PRINT STRESS 

420 PRINT "B - NEARLY ALL THE TIME" 870 GOSUB 1320:CLS 

430 PRINT "C —- A FAIR PROPORTION OF THE | 880 PRINT "PERSONAL ASSESSMENT FROM MEDI 
TIME" CI:" 

440 PRINT "D = FROM TIME TO TIME" 890 PRINT 

450 PRINT "E = HARDLY AT ALL" 900 PRINT TAB(8); "WEIGHT: "WEIGHT 
460 GOSUB 1190 910 PRINT TAB(6); "EXERCISE: "EXERCISE 
470 DIET=-ASC(A$)+69 920 PRINT TAB(4);"CAR SAFETY: "SEATBELT 
480 PRINT DIET 930 PRINT TAB(5); "NUTRITION: "DIET 
490 GOSUB 1270 940 PRINT TAB(7); "SMOKING: "SMOKING 
500 PRINT "SMOKING (A CIGAR COUNTS AS A | 959 PRINT TAB(7); "ALCOHOL: "DRINK 
CIGARETTE)" 960 PRINT TAB(8);"STRESS: "STRESS 

510 PRINT 970 GOSUB 1320 

520 PRINT "A - NOT AT ALL" 980 ANT=WEIGHT+EXERCISE+SEATBELT+HEARTBE 
530 PRINT "B LESS THAN 15 CIGARETTES A AT+DLIET+SMOKING+DRINK+STRESS 

DAY" 990 GOSUB 1320:PRINT 

540 PRINT "C 15 TO 25 CIGARETTES A DAY | 4000 PRINT " YOUR RAW RATING IS “ANT: 

PRINT 

a0 PRINT "D 26 TO 42 CIGARETTES A DAY 1010 PRINT " ON’ A SCALE WHERE ZERO IS A 


VERAGE, " 
560 PRINT "E - MORE THAN 42 CIGARETTES A | 1900 PRINT "THE LOWEST RATING IS BELOW — 
DAY" 80, AND" 
a10 Gosup’ 1190 1030 PRINT " THE HIGHEST IS OVER 30" 
ppd ao MOE NGS UP CASCCAS =65) 1040 GOSUB 1320:PRINT 
590 PRINT SMOKING 
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i — Personal Checkup 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


I ENGAGE IN EXERCISE, THAT 

RAISES MY HEARTBEAT TO 120 OR MORE, 

FOR AT LEAST THE FOLLOWING NUMBER 
OF HOURS A WEEK: 


LESS THAN A QUARTER 
MORE THAN A QUARTER, 
THREE-QUARTERS 

FROM THREE~QUARTERS OF AN HOUR 
UP TO ONE AND A HALF 

FROM ONE AND A HALF TO 

TWO AND A HALF 

MORE THAN TWO AND A HALF HOURS 


UP TO 


OK B 
10 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


SMOKING (A CIGAR COUNTS AS A CIGARETTE) 


A ~ NOT AT ALL 
LESS THAN 15 CIGARETTES A DAY 
15 TO 25 CIGARETTES A DAY 
26 TO 42 CIGARETTES A DAY 
MORE THAN 42 CIGARETTES A DAY 


OK B 
-7 


WHICH OF THE FOLLOWING IS CLOSEST 
TO THE TRUTH (SELECT ONE): 


ALCOHOL - HOW MANY DRINKS (ON AVERAGE) 
DO YOU HAVE EACH DAY? 


NONE 

LESS THAN 3 
3 TO 6 

7 TO 9 

MORE THAN 9 


OK 


ARTIFICIAL STUPIDITY 


1050 IF ANT<6 AND ANT>-6 THEN A$="AVERAG 
E":L$="62 TO 73. 72 TO 78" 
1060 IF ANT<-5 AND ANT>-21 THEN A$="BELO 
W AVERAGE":L$="60 TO 66 65 TO 71" 
1070 IF ANT<-20 THEN A$="POOR":L$="60 OR 
LESS 65 OR LESS" 
1080 IF ANT<-45 THEN A$="VERY POOR" 
1090 IF ANT<-60 THEN A$="VERY, VERY POOR 
n 
1100 IF ANT>5 AND ANT<15 THEN A$="GOOD": 
L$="74 TO 80 79 TO 85" 
1110 IF ANT>14 THEN A$="EXTREMELY GOOD": 
L$="81 PLUS 86 PLUS" 
1120 PRINT "THIS INDICATES YOUR HEALTH S 
TATUS IS ";A$ 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
OSEST 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


PRINT 

PRINT 

PRINT 

PRINT 

END 

REM ##HRKEREE EEE 

REM ACCEPT INPUT 

IF INKEY$<>"" THEN 1200 

A$=INKEY$ 

IF A$<"A" OR A$>"E" THEN 1210 

PRINT: PRINT TAB(12);"0OK Rs A$ 

RETURN 

REM S##HHERSER HEED 

REM DELAY/SPACE OUT 

FOR J=1 TO 1000:NEXT J 

CLS 

PRINT: PRINT: PRINT: PRINT 

PRINT "WHICH OF THE FOLLOWING IS CL 
TO THE TRUTK (SELECT ONE):* 


"LIFE EXPECTANCY:" 
TAB(3); "MALE 
TAB(3);L$ 


FEMALE® 


PRINT 

FOR J=1 
RETURN 
REM #HSRHHKKEEKERHERHKEREEE HEHE 


REM MEDICI DATA SOURCES 

REM HHKHKHKHEKHEKKHHKEKHHEHEEE EE 

REM SOCIAL READJUSTMENT RATING 
SCALE; DR THOMAS HOLMES 

REM METROPOLITAN LIFE INSURANCE 

COMPANY 

'LIFE PLAN FOR YOUR HEALTH! 

DR DONALD VICKERY 
ADDISON-WESLEY, 1978 

NEW AGE TRAINING FOR FITNESS 

AND HEALTH ~ DYVEKE SPINO 


GROVE HOUSE INC., 1979 
HEHKEHEHHHELHEHEREEREEER ERED 


TO 400:NEXT J 


1380 
1390 REM 


1400 
1410 


REM 
REM 


1420 
1430 


REM 
REM 











ARTIFICIAL STUPIDITY 


Intelligent Noughts and Crosses 


Our ‘intelligent’ Noughts and Crosses pro- 10 REM 'Intelligent' Noughts & Crosses 
gram develops a playing strategy as it 20 REM (c) Tim Hartnell, 
runs. When you first run it, the program Interface Publictions, 1986 
knows how to play the game, including 30 GOSUB 1190:REM INITIALISE 
enough knowledge to try and block a row 40 REM ***® PREGAME SETTINGS #**# 
of three being made by an opponent, or to 50 FOR J=1 TO 9 
complete its own row of three. But it 60 A(J)=32 
knows nothing else about the way it 70 NEXT J 
should play. It doesn’t even know that it 80 FOR J=1 TO 5 
should move into the centre position if it 90 D(J)=0 
is free. 100 NEXT J 
But play a few games with it, especially 110 COUNT=0 
letting it win for a while, and it will quickly 120 R$="" 


130 GOSUB 1080:REM PRINT BOARD 
140 REM **#® MAIN CYCLE ##* 

150 GOSUB 550:REM MACHINE MOVE 
160 GOSUB 1080:REM PRINT BOARD 
170 GOSUB 880:REM WIN CHECK 
180 IF R$<>"" THEN 250 


develop some strategy. As well, it shows 
you the relative values it has given to each 
position on the board, after each game, so 
you can actually see it learning. 

Here’s the board layout: 


1:2:3 190 GOSUB 990:REM ACCEPT HUMAN MOVE 
see 200 GOSUB 1080:REM PRINT BOARD 
eae 210 GOSUB 880:REM WIN CHECK 
7-8-9 220 IF R$="" THEN 150 
oe 230 REM **#® END MAIN CYCLE ### 
240 REM ###RRERRERE 
When I ran this program against an oppo- 250 REM END OF GANE 
nent playing totally at random, it took 260 GOSUB 1080:REM PRINT RCARD 
only 12 games before it had learned that 270 PRINT: PRINT 
position five, the central one, was the 280 IF R$-"Wt THEN PRINT TAB(8);"I WIN": 
most valuable one on the board. You FLAG=-1 
should see a similar quick development in 290 IF R$="L" THEN PRINT TAB(8);"YOU WIN 
its strategy when you play. If you want to ":FLAG=1 
set up a ‘random opponent’, just add 300 IF R$="D" THEN PRINT TAB(6);"IT'S A 
those additional lines number 2000 to DEAW":GOTC 440 
2070, headed RANDOM OPPONENT, and 310 REM UPDATE KNOWLEDGE BASE 
change line 190 into GOSUB 2000. Then 320 FOR B=1 TC 5 
settle back and watch Artificial Stupidity 330 FOR J=2 TO 9 
in action. 340 IF M(J)=D(B) THEN GOSUB 380 
350 NEXT J 
360 NEXT B 
2000 REM RANDOM OPPONENT 370 GOTC 4uO 
2010 H=0 380 REM *#* RE-ORDER ELEMENTS OF M ARRAY 
2020 H=H+1 ## 
2030 MVE=RND(9) 390 TEMP=M(J+FLAG) 
2040 IF A(MVE)=32 THEN A(MVE)=ASC("X"):R| 400 M(J+FLAG)=M(J) 
EVURN 410 M(J)=TEMP 
2050 IF H<100 THEN 2020 420 J=9 
2060 R$="D" 430 RETURN 
2070 RETURN 440 PRINT: PRINT 


450 PRINT "THIS IS MY UPDATED PRIORITY" 
460 PRINT: PEINT 

470 FOR J=1 TO 9 

480 PRINT M(J);" "3 
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ARTIFICIAL STUPIDITY 


NEXT J 

PRINT: PRINT 

PRINT "PRESS RETURN TO CONTINUE" 
INPUT A$ 

GOTO 40 

REM ##RRRRRER EHD 

REM MACHINE MOVE 

P=ASC("0") 

X=0 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 J=1 

590 IF ACW(J))=A(W(J+1)) AND AC W(J+2))=3 
2 AND A(W(J))=P THEN X=W(J+2):GOTO 760 
600 IF A(W(J))=A(W(J+2)) AND A(W(J+1))=3 
2 AND A(W(J))=P THEN X=W(J+1):GOTO 760 
610 IF A(W(d+1))=A(W(J+2)) AND A(W(J))=3 
2 AND A(W(J+1))=P THEN X=W(J):GOTO 760 
620 IF J<21 THEN J=J+3:GOTO 590 

630 IF Pe=ASC("O") THEN P=ASC("X"):GOTO 5 
£0 
640 


REM ** IF NO WIN/BLOCK MOVE FOUND ## 


650 REM **® THEN THIS NEXT SECTION USED * 
. 

660 
670 
680 
690 
700 
710 
720 
730 
THO 
750 
760 
770 
780 
790 
800 
810 
820 
8 30 
840 
850 
T ASSIGNED, 
860 RETURN 
870 REM BRRERERES 
880 REM WIN CHECK 
890 J=1 
900 IF 
910 IF 
920 IF 

(J+2)) 

930 IF 


J=) 

IF A(M(J))=32 THEN X=M(J):GOTO 760 
IF J<10 THEN J=Jd+1:GOTO 670 

H=0 

H=H+1 

X= INT(RND(1)*9): IF 
IF H<100 THEN 700 
R$="D":REM IT IS A 
RETURN 

REM HH RRHRH ER 

REM MAKE MOVE 

A(X) =sASC("0") 
COUNT=COUNT+1 

D( COUNT) =X 

FLAG=0 

FOR J=1 TO 9 

IF A(J)=32 THEN FLAG=1 

NEXT J 

IF FLAG=0 AND R$="" THEN R$="D" 

REM IF ALL POSITIONS FULL, AND R$ NO 
TT IS A DRAW 


A(X)=32 THEN 760 


DRAW 


ACW(J))=32 THEN J=J+3 

J>23 THEN RETURN 

ACW(Od) )=ACW(J+1)) AND AC W(J))=ACW 
THEN 950 

J<22 THEN J=J+3:GOTC 900 


940 RETURN 
950 IF A(W(J))=ASC("0") THEN R$="W":REM 
MACHINE WINS 
960 IF A(W(J))=ASC("X") THEN 
MACHINE LOSES 
970 RETURN 
980 REM RHR KRHKEKES 
990 REM HUMAN MOVE 
1000 PRINT:PRINT 
1010 PRINT "ENTER YOUR MOVE" 
1020 INPUT MOVE 
1030 IF MOVE<1 OR MOVE>9 THEN 
1040 IF A(MOVE)<>32 THEN 1020 
1050 A(MOVE)=ASC("X") 
1060 RETURN 
1070 REM FRHKKKKRA RE 
1080 REM PRINT BOARD 
1090 CLS 
1100 PRINT: PRINT:PRINT 
1110 PRINT "1 = 3 ";CHR$(A(1))3;" 
"SCHR$(A(2));" : ";CHR$(A(3)) 
1120 PRINT * 
1130 PRINT "4 
";CHR$(A(5));" 
1140 PRINT " 
1150 PRINT "7 : 9 ";CHR$(A(7));" 
";CHR$(A(8));" 3: ";CHR$(A(9)) 
60 PRINT 
RETURN 
REM KH#RKRRRERREEE 


INITIALISATION 


R$="L":REM 


1020 


";CHR$(A(4))5" 
HR$(A(6)) 


A(9):REM BOARD 
M(10):REM TO HOLD KNOWLEDGE BAS 


W(24):REM WIN/BLOCK DATA 
D(5):REM TO HOLD MOVES IN CURRE 


WIN/ BLOCK DATA 


READ M(J) 

NEXT J 

DATA 2,6,8,4,7,3,1,9,5,2 
RETURN 





47 








The YC Perpetual Calendar 


Now you can print out, on the screen or on 
your printer, a calendar for every year from 
1987 to enternity. Just enter the last two 
digits of the year you want (so enter ‘87’ 
for 1987) and the program will do the rest. 


CALENDAR 


Enter the year you want (after 1900) as 
the final two digits: 19.. 
? 87 


January 1987 
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UTILITARIANISM 


fon, then 
.200 INPUT G$:LPRINT:LPRINT: LPRINT 


10 REM THE Y.C. PERPETUAL CALENDAR 
20 REM (c) Tim Hartnell, 
Interface Publications, 

30 CLS 

RO RESTORE 620 

50 PRINT: PRINT: PRINT: PRINT: PRINT 

60 PRINT "C AL END A R®:PRINT: PRINT: P 

RINT 

70 PRINT "Enter the year you want (after 
1900) as the final two digits: 19.." 

80 INPUT Y$ 

90 IF LEN(Y$)=4 THEN Y=VAL(RIGHT$(Y$,2)) 
:GOTO 120 

100 IF LEN(Y$)=2 THEN Y=VAL(Y$):GOTO 120 


1986 


110 PRINT ">> Incorrect input format":PR 
INT:GOTO 70 

120 CLS: PRINT: PRINT: PRINT: PRINT 

130 PRINT "Do you want a copy to your pr 


‘inter as well (Y or N)?" 


140 INPUT K$ 

150 IF K$<>"N" AND K$<>"n" AND K$<>"Y" A 
ND K$<>"y" THEN 140 

160 CLS 

170 P=O:IF K$="y" OR K$="Y" THEN P=1 

180 IF P=0 THEN 210 

190 PRINT "Position paper at next serati 
press the <RETURN> key" 


210 D=1 

220 PRINT: PRINT "Press <RETURND to start 
print out” 

230 INPUT G$ 

240 CLS 

250 FOR A=1901 TO 1900+Y-1 

260 IF A/H=INT(A/4) AND A/1000<>INT(A/10 
00) THEN D=D+366:GOTO 280 

270 D=D+365 

280 NEXT A 

290 E=D-7#INT(D/7) 

300 FOR M=1 TO 12 

310 IF M=1 THEN 330 

320 INPUT G$ 

330 READ M$,L 

340 IF Y/4=INT(Y/4) AND M$="February" TH 
EN L=29 

350 PRINT TAB(20-LEN(M$)/2)3M$;1900+Y 
360 IF P=1 THEN LPRINT TAB(20-LEN(M$)/2) 
3M$;1900+Y 

370 PRINT TAB(10);STRING$(27, "-") 

380 IF P=1 THEN LPRINT TAB(10);STRING$(2 
yee 














UTILITARIANISM 


"390 PRINT TAB(10);"Mon Tue Wed Thu Fri §S April 1987 
at Sun" 

400 IF P=1 THEN LPRINT TAB(10);"Mon Tue 
Wed Thu Fri Sat Sun" 

410 PRINT TAB(10);STRING$(27,"-") 

420 IF Ps=1 THEN LPRINT TAB(10);STRING$(2 
7,%-") 

30 FOR Az=i TO L 

44O IF A<10 THEN PRINT TAB(11+E*®4);A; EL 
SE PRINT TAB(10+E*4);A; 

450 IF A<10 AND P=1 THEN LPRINT TAB(11+E 
#H) 5A; 

460 IF P=1 AND A>9 THEN LPRINT TAB(10+E*# 
4)5A; 

470 E=E+1 

480 IF E=7 THEN E=0 

490 NEXT A 

500 PRINT 

510 PRINT TAB(10);STRING$(27,"-") 

520 IF P=1 THEN LPRINT TAB(10);STRING$(2 
7,"-") 

530 PRINT: PRINT: PRINT 

540 IF P=1 THEN LPRINT: LPRINT:LPRINT 

550 NEXT M 

560 PRINT: PRINT 

570 IF INKEY$<>"" THEN 570 

580 PRINT "Input 'A' to run again, or ju 
st the <RETURN> key to end" 

590 INPUT J$ 

600 IF J$="a" OR J$="A" THEN RUN 

61¢ 

620 "January",31,"February",28, "Mar 
ch" 

630 DATA "April™,30,"May",31,"June", 30," 
July", 31 

640 DATA "August",31,"September", 30,"0ct 
ober", 34 

650 DATA "November", 30,"December", 31 
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